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DISCLAIMER 



This program and its documentation have been contributed to the Program 
Information Department by an IBM employee and are provided by the IBM 
Corporation as part of its service to customers. The program and its 
documentation are essentially in the author's original form and have not 
been subjected to any formal testing. IBM makes no warranty expressed 
or implied as to the documentation, function, or performance of this 
program and the user of the program is expected to make the final 
evaluation as to the usefulness of the program in his own environment. 
There is no committed maintenance for the program. 

Questions concerning the use of the program should be directed to the 
author or other designated party. Any changes to the program will be 
announced in the appropriate Catalog of Programs; however, the changes 
will not be distributed automatically to users. When such an announce- 
ment occurs, users should order only the material (documentation, machine 
readable or both) as indicated in the appropriate Catalog of Programs. 
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Program Abstract 

APIA.360 is a conversational time-sharing system based 
on a mathematical programming language first defined by 
K. E. Iverson. The language is concise and has a simple 
syntax. It has a large set of primitive operations which 
work direcjtly on arrays. The implementation provides a 
simple immediate-execution mode and a convenient program 
definition facility. It has fast response, and uses 
succinct diagnostic messages. It provides the ability to 
save work between sessions, to create programming packages, 
and to exchange programs and data between users. Uses of 
the system include mathematical and statistical calculation, 
symbol manipulation, and general data processing. It has 
been used extensively in computer- related instruction, and 
in the design of hardware and software. 



Minimum configuration: 256K storage; universal 
instruction set; a 2314 or three 2311's; one 2702 or 2703; 
and 2741 or 1050 terminals. Additional storage, disks, and 
transmission controls are supported. A typical Model 50 
configuration supports 60 terminals. The system is written 
in Assembly language, incorporates a modified DOSIII, and 
allows standard DOS background operation. 



PREFACE 



APIA 360 is a conversational terminal system that has 
been operating within IBM since the Fall of 1966. Conceived 
as an experimental system for exploring certain aspects of 
computer science, its purpose required that it operate under 
a realistic load in an environment that was not artificially 
constrained. To this end, the members of the IBM Research 
staff, and others, were encouraged to learn the APL language 
and use the APL system. It was not anticipated that it 
would have the impact that it did: 

In twenty months of regularly scheduled operation, 
clocking well over 100,000 terminal-hours of use, the 
availability of APIA 360 has materially changed the 
computing habits of the Research organization. 

Heavy users of batch processing have turned to APL for 
on-line development of their algorithms. 

Many laboratory data reduction chores formerly done by 
batch operation or desk calculator are now executed in 
a timely way at local terminals, using locally written, 
stored APL programs . 

Automatic collection of experimental data has , in many 
instances, been put on-line to APL. 

Routine correspondence and technical papers are 
prepared at terminals , with the help of text-handling 
programs written in APL. 



Many professional staff members who formerly were 
indifferent to, or actively resisted, the use of 
computers , have become steady users of the APL system. 



In addition to IBM Research personnel, use of the 
system was offered to other locations within the IBM 
Company, and it was also used experimentally in elementary 
and secondary schools and in universities. The general 
findings may be summarized as follows: 

Although APL is easy for a beginner to learn, 
non-programmers (as well as programmers) often develop 
an interest in sophisticated use of the language, 
because of its analytical power and mathematical 
structure. 

The primitive array operations of APL make it a good 
language for scientific problems, text handling, and 
general data processing, because arrays are fundamental 
to all of these applications. 

The use of a powerful, readily accessible computational 
facility can materially change the quality and 
orientation of an academic course. 

Other things being equal, acceptance of time-sharing as 
a general mode of operation is strongly dependent upon 
its reliability and availability — regularly scheduled 
hours are essential, and the more the better, including 
nights and weekends. 

System features. APIA 360 is based upon APL, the language 
first defined by K. E. Iverson in A Programming Language 
(John Wiley, 1962) . It is an interpretive time-sharing 
system that builds upon the array operations and structural 
integrity of APL to provide a running system with the 
following salient characteristics : 

Simple, uniform rules of syntax 

Use of common symbols for the ordinary arithmetic 
operations 



Free- form decimal input 

A large set of primitive operators 

Use of defined functions (programs) with the same 
facility and syntactic variety as primitive operators 



Automatic internal conversions of data representation, 
with full double-precision arithmetic (16 decimal 
digits) when required 

Very fast response 

A library structure built around workspaces that hold 
both programs and data 

An immediate-execution mode completely free of 
irrelevant keywords 

A comprehensive, integrated set of system commands for 
managing workspaces and libraries, and for other 
essential functions 

Three levels of security; account numbers, workspaces, 
and programs can be individually locked against use or 
display 

Visual fidelity between hard copy and transmitted 
entries, which ensures reproducibility of results 

Succinct diagnostic reports 



Hardware and performance. The APL\360 system, comprising a 
time-sharing supervisor and an APL interpreter, runs in 

conceit with a modified DOS Version 3, which appears the 
same as the standard DOS release of the corresponding change 
level. During APL operation it requires an S/360 machine 
with at least an H-level memory, a transmission control 
unit, and three disk drives. 



The particular configuration used in the original 
Research experiment is a Model 50H with a 2703 Transmission 
Control Unit and a 2314 Direct Access Storage Facility. 
This system has 61 ports , and with about that number in use 
seems to be a well-balanced system with regard to relative 
usage of the central processor and input-output equipment. 

APIA 360 has run (or is now running) experimentally on 
S/360 Model 40 and Model 65 machines, and will run on all 
larger models. It will also run on an S/360 Model 44 
equipped with the Trap and Emulate RPQ. It supports IBM 
2741 and 2740-1 Communications Terminals, and 1050 
Teleprocessing Terminals with or without paper tape or 
punched-card equipment. 



Average reaction time of the Model 50 system (i.e., 
time to respond to trivial requests from a terminal) peaks 
at about three-tenths of a second. With up to 40 ports in 
use, most such responses are essentially instantaneous; when 
fully loaded, there are occasional delays of as much as four 
seconds. 

The time for serving non-trivial requests naturally 
varies according to the extent to which the CPU must be 
shared during the computation. Because the primitive 
operations of APL are defined on arrays, relatively little 
interpretive overhead is needed for many large computations, 
and the actual CPU time used for a typical computation may 
run from 20 to 50 times that for efficient compiled code; 
but the overall efficiency is likely to be comparable, if 
not superior, to batch processing in many applications if 
the usual compiling and loading times for batch work are 
taken into account. If debugging time is included, the 
advantage of interpretive APL becomes even greater. 

Applications . The workspace-centered organization of 
APL\360 makes it very convenient to assemble application 
packages, because a collection of programs and data in a 
workspace moves as a coherent unit whenever the workspace 
containing it is stored or activated. Some of the packages 
that have been developed on the experimental systems so far 



A comprehensive collection of functions for statistical 
calculations 

A coordinate geometry package that includes a position 
plotter 

A management information system for controlling the 
allocation of manufacturing resources 

A text-editing and composing facility that has been 
used for preparing this document, among others 

An algebraic manipulator that simplifies polynomials 
and operates on matrices of algebraic expressions 

A bookkeeping system for balancing accounts 

Many collections of programs for numerical analysis of 
both real and complex functions 



The IBM Research Model 50 APIA 360 system serves more 
than 700 active users whose work ranges over many fields : 
from simple desk calculations to experimental investigations 
of semi-groups, from laboratory data reduction to 
theoretical physics , from the working out of small 
programming problems to the design and modelling of major 
systems, and from administering arithmetic drill to 
elementary-school children to use in graduate- level 
engineering courses . 

Documentation. The accompanying document consists of three 
volumes bound together: IlserlS Manual, QperatgrlS Manual, 
and System Generation and Maintenance. 



MAGNETIC TAPE KEY 



FOR 2311 BASED SYSTEM : 

One (1) volume containing the listed files and three (3) 
tape marks, arranged as follows: 



800 bpi; 9 track; EBCDIC 

IPL record 

Disk initialization program 

T/M 

IPL record 

Disk restore program 

APIA360 



T/M 
T/M 
This volume contains 21009 records 



24 bytes 

variable length records (range 

24 to 330 bytes) unblocked 



24 bytes 

80 byte records unblocked 
variable length records (range 
15 to 2000 bytes) unblocked 



FOR 2314 BASED SYSTEM : 

Two (2) volumes composed as follows: 

Volume 1 — contains the listed files and two (2) tape marks 
arranged as follows: 



24 bytes 

variable length records (range 

24 to 330 bytes) unblocked 



24 bytes 

80 byte records unblocked 
variable length records (range 
24 to 2000 bytes) unblocked 



800 bpi; 9 track; EBCDIC 

IPL record 

Disk initialization program 

T/M 

IPL record 

Disk restore program 

APL\360 

T/M 

This volume contains 23549 records 

Volume 2 — contains the listed file and two (2) tape marks 
arranged as follows: 

800 bpi; 9 track; EBCDIC 

APL\360 system (continued) 5606 variable length records 

(range 15 to 175 bytes) unblocked 
T/M 

T/M 



10 



FOR BOTH SYSTEMS 

One (1) volume containing the specified file and four (4) 
tape marks arranged as follows: 

800 bpi; 9 track; EBCDIC 

Standard header label 

T/M 

APL 360 starter library 

T/M 

Trailer label 

T/M 

T/M 



Volume I 
APIA360: User's Manual 



56 varible length records (range 
24 to 3500 bytes) unblocked 



A. D. Falkoff 
K. E. Iverson 



(3) International Business Machines Corporation, 1968 
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PART 1 
GAINING ACCESS 
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An APIA 360 System comprises a central computer and an 
indefinite number of typewriter-like terminals. A certain 
number of these terminals may be simultaneously linked to 
the computer, according to the number and type of access 
ports on the computer. 

This part of the manual describes the terminal 
equipment required for interacting with the system, tells 
how to establish a connection between a terminal and the 
central computer, and gives, in simplest form, the 
procedures for starting and ending a work session. 

PHYSICAL EQUIPMENT 

A remote terminal for use with the system must be 
either an IBM 2741 Communications Terminal, an IBM 2740-1 
Communications Terminal equipped with the Transmit Control 
feature, or an IBM 1050 Teleprocessing Terminal. It may 
connect to the central computer through the dial-up 
telephone network, by a leased telephone line, or by private 
wire. 

Dial-up connections are effected by means of a Western 
Electric Dataset #103A-2 or the equivalent, or a compatible 
acoustic coupler. A leased telephone line connection 
requires the use of a Western Electric Dataset #103F-2 or 
the equivalent. A direct-wired connection is effected by 
means of an appropriate IBM line adapter (modem) . In the 
last case, two-wire connections should be avoided, if 
possible, since their use rules out an interrupt facility. 

Preferred features. The APIA360 system will work with many 
variations of the terminal types given above, but certain 
features and options are desirable. Dial-up connections 
provide the greatest flexibility, both in overall system 
configuration, and in certain details of operation. 
Similarly, although the APL printing element is based on a 
12 -pitch font, and is available in both Selectric* and 
PTTC/BCD keyboard encoding (i.e., the correspondence between 
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FEATURE OR OPTION 


1050 


2740-1 


2741 


Control Unit 


1051-2 






Voltage (115 AC) , Non-look plug 


9881 


9881 


9881 


Dataset Attachment 


9114 


9114 


9114 


Dial Up 


NR 


3255 


3255 


Transmit Control 


NR 


8028 


NR 


Automatic eob 


RPQ E27283 


Do not use 


NR 


Typamatic Keys 


NA 


NA 


8341 


Interrupt 


RPQ E27428 


RPQ F17913 


4708 


Text Time-out Suppression 


9698 


NR 


NR 


First Printer Attachment 


4408 


NR 


NR 


Automatic Ribbon Shift Select 


1295 


NA 


NA 


Typing Table 


9705 


NR 


NR 


Printer-Keyboard 


1052-2 






APL Printing Element, PTTC/BCD 


1167988 


1167988 


1167988 


or Standard Selectric* 


NA 


1167987 


1167987 


Keys, APL Keyboard 


RPQ M40174 


RPQ M40174 


RPQ M40174 


Character Spacing, 10 per inch 


9104 


9104 


9104 


Line Feeding, 6 per inch 


9435 


9435 


9435 


Accelerated Carrier Return 


1006 


NA 


NA 


Notes. NR: feature is standard ec 


juipment, or 


is not required. 


NA: not available (July 1 


J68). 






The numbers are lBM-domes1 


;ic identific 


nations. 





Table 1.1s RECOMMENDED FEATURES AND OPTIONS FOR TERMINALS 



keyboard layout and character positions on the printing 
element), specification of 10-pitch character spacing and 
Seiectric* encoding will allow a greater variety of printing 
elements to be used with the terminal. While it is not 
essential , the convenience of having the interrupt feature 
cannot be overestimated. 

Paper tape equipment (1054-1 Reader and 1055-1 Punch) 
and punched-card equipment (1056-1 Reader and 1057-1 Punch) 
can be used with IBM 1050 terminals . The punched-card 
facilities should have Extended Character features 38 61 and 
3860, for reader and punch, respectively. 

IBM identifications for recommended terminal features 
and options are given in Table 1.1. Complete specifications 
for terminals, and information on other options, should be 
obtained from local IBM representatives. 





i 


2 


< 

3 


4 


5 


> 

6 


> 

r 


8 


V A - 
9 + 


• 

L * 


BACK 
SPACE 




TAB 


9 

Q 


W . 


€ 


P 
R 


r 


Y 






O 



* 

P 


* 

<" 


RETURN 


LOCK 


a 

A 


s U If 


V 


A 
H 


• 

J 


i 
K 


D 
L 


( 
I 


) 
3 


SHIFT 


c 
z 


X 


n 
c 


u ± 

V B 


T \ ; 
N M < 


; 


\ 
/ 


SHIFT 



Figure 1.2: APLN360 KEYBOARD 



THE APL CHARACTER SET 



The 
marks 



The APLX360 keyboard is shown in Figure 1.2 
numerals, alphabetic characters, and punctuation 
appear in their usual places, although the alphabet is used 
in only a single case: letters print as upper-case italics, 
but are produced only when the keyboard is in lower-case 
position (i.e., not shifted). 

The special characters, most of which are produced with 
the keyboard shifted, generally have some mnemqaie 
connection with their alphabetic or numeric correspondea%§ , 
This may be appearance (w over W) , Greek- Roman equivalence 
(p over R) , sequence (< < = a > * over 3 4 5 6 7 8), or some 
— possibly far fetched — relationship between the APL 
function represented by the symbol and the letter (* over P 
for power/ 1 over K for "kwote", and T over S for ceiling). 

Use fif Qther character seta. The part numbers of APL 
printing elements are given in Table 1.1. However, any 
printing element may be used with the APL system, since the 
encoded characters generated by the keyboard and transmitted 
to the computer are independent of the particular element 
mounted on the terminal. Subject to programmed 
intervention, the transmitted information will always be 
interpreted according to the APL keyboard characters.. 

Non-APL printing elements are frequently useful in 
conjunction with special-purpose APL programs designed to 
exploit their character sets. Also, any element that 
matches the keyboard encoding (Selectric* or PTTC/BCD) of 
the terminal can be used for straightforward numerical work, 
since letters and digits print properly with such elements. 
The visual interpretation of complex APL expressions is, of 
course, awkward with any but an APL printing element. 
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THE RECORDING TERMINAL 

As connections with remote terminals are established 
and broken, and users start and end work sessions, a printed 
record of this traffic is generated at the system's 
recording terminal. This terminal, which is usually, but 
not necessarily, located at the central computer site, is 
ordinarily attended by an AEL Operator who monitors the 
operation of the system, and provides a common point of 
contact for users. 

There are certain supervisory functions, essential to 
the operation of APIA360, which can be effected only from 
the recording terminal. Thus, this terminal holds a 
privileged position relative to others. The enrollment of 
new users, and the allocation of library space, are examples 
of this kind of function. 



ESTABLISHING A CONNECTION 

The directions that follow assume the use of a dial-up 
connection with a dataset. Instructions for the use of 
acoustic couplers should be obtained from their suppliers. 
Where terminals are connected to the computer by leased 
lines or private wires, instructions on dialing procedure 
(EC2) are irrelevant, but local sources of information 
should be consulted for equivalent procedures. 



ACTION 



NOTES 



Ifilj Set u£ ±erminal: 
Insert paper, mount an APL 
printing element, connect 
terminal to power source , 
and set switches as follows: 

IBM 2741 or 2740 Terminal 



LCL/COM 
Power 



COM The power switch is at the 
ON right of the keyboard. On 
2741's, the LCL/COM switch 
is on the left side of the 
terminal stand, toward the 
rear; on 2740 's, it is to 
the right of the power 
switch . 
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IBM 1050 Terminal 



ATTEND/UNAT TEND 


ATTEND 


Keyboard 


SEND 


Printer 


SEND- RECEIVE 


Reader 1 


OFF 


Punch 1 


OFF 


EOB 


MANUAL 


Line test 


OFF 


Single step 


OFF 


Line control 


ON 


Power 


ON 



Not all 1050's have all 
switches; those present must 
be set as indicated. The 
states of switches not 
listed here are immaterial. 

If it is known that RPO 

E27283 (see Table 1.1) is 

installed, set the EOB 
switch to AUTO. 

The line control switch is 
inside the rear door of the 
1051 Control Unit. The 
power switch is on the left 
side of the control unit, 
toward the front. 



On 2741 and 2740 terminals, 
test to see if the keyboard 
is locked by trying the 
shift key. If the key is 
operable, press the carrier 
return and test again. 



If the keyboard does not 
lock after a carrier return, 
check the switches and try 
once more. If the switches 
are set properly and the 
keyboard remains unlocked, 
the terminal is faulty. 



EC 2 j. Dial computer: 
Set the telephone pushbutton 
switch to TALK and follow 
ordinary dialing procedure. 
After two rings, at most, 
the telephone will respond 
with a steady, high-pitched 
tone. 



Telephone numbers are given 
in Table 1.3. If the line 
is busy, try a different 
number or call the APL 
Operator to inquire about an 
open line. 



123 456-7890 123 456-7890 

Insert a table of access 

telephone numbers here. 

An assistance number 

should be included. 



APL Operator: 



123 456-7890 



Table 1.3: TELEPHONE NUMBERS 
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Promptly set the pushbutton 
switch to DATA by holding 
the DATA button down firmly 
for a moment and then 
releasing. 

Cradle the handset. 



The DATA button should 
light, and will remain lit 
as long as the terminal is 
connected to the computer. 
If it does not light, check 
the power connection to the 
dataset. If it lights, but 
quickly goes out, check the 
power connection to the 
terminal, the cable 
connection to the dataset, 
and the switch settings on 
the terminal. Then retry 
from EC1. 

Response: The keyboard will 
unlock, indicating that the 
computer is ready to accept 
an entry from the terminal. 

The connection established by the foregoing procedure 
is only tentative, and will be broken by the central 
computer if further communication does not take place within 
60 seconds. Therefore, the next step — the sign-on 
procedure (EC3) given below — should be executed promptly. 



ENTRIES FROM THE KEYBOARD 

After a connection is established, normal communication 
between a terminal and the central computer is carried on by 
means of entries from the typewriter keyboard, which 
alternately locks and unlocks as each entry is made and the 
computer completes its work. The general procedure is to 
type an instruction or command, strike the carrigr returjj to 
indicate the end of the message, and follow this by a 
transmission signal. 

Transmission signals. The transmission signal is generated 
differently, according to the terminal type and its 
equipment : 

2741. A transmission signal is automatically generated in 
the proper sequence (i.e., after the carrier return 
signal) when the RETURN key is struck. 

2740. The transmission signal is produced by striking the 
iOT key after the RETURN key. (Do not use the the EOB 
key, or the automatic EOB feature available on these 
terminals . ) 
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1Q.5J). On terminals equipped with an automatic EOB RPQ 
(see Table 1.1), the transmission signal is produced 
automatically when the RETURN key is struck. Otherwise, 
an EOB must be produced manually, by striking the 
numeral-5 key, while the key marked ALTN CODING is 
held down. (Note that the automatic EOB feature available 
for 1050 terminals cannot be used with APIA 360.) 

A transmission signal does not cause a character to be 
printed, and its omission will therefore be evidenced only 
by the state of the terminal: the keyboard will remain 
unlocked, and no response will be forthcoming from the 
system. 

In the remainder of this manual the need for carrier 
return and transmission signal will not be explicitly 
mentioned, since they are required for every, entry. 

Mistakes. Before the carrier return (and transmission 
signal) that completes an entry, errors in typing can be 
corrected as follows: backspace to the point of error and 
then depress the linefeed button (marked ATTN on 2741 
terminals). This will have the effect of erasing everything 
to the right of, and including, the position of the carrier. 
The corrected text can be continued from that point, on the 
new line. 

This procedure can be used at any time once the sign-on 
(EC3) has been accomplished. In case of error in the 
sign-on itself, the entry should be made as is. The system 
will provide an appropriate trouble report, following which, 
a correct entry may be made. 

Transmission errors. There are occasional transient 
failures in the communication between a terminal and the 
central computer. If the failure occurs during the 
transmission from the terminal, the system will respond with 
a resend signal: on 1050 terminals, the RESEND warning 
light will go on, and on other terminals the message RESEND 
will be printed. In any case, the last entry from the 
keyboard must be repeated. The warning light on the 1050 
should first be extinguished by pressing the adjacent 
button. 

Failures in the other direction are usually evidenced 
by the appearance of a spurious character, whose presence in 
the printed output is obvious in most contexts. However, 
there is no absolutely certain way of detecting such a 
failure. 
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Special features at IBM 1Q.5Q terminals. The keyboard of a 
terminal equipped with a REQUEST button will not unlock, 
when it otherwise should, until the button is depressed. On 
terminals equipped with a timer, the keyboard will lock 
before an entry is completed if approximately 18 seconds 
have elapsed since the last keyboard action. Locking can be 
forestalled by occasionally striking the shift key, but if 
it does happen, the keyboard can be forced to unlock by 
flipping the line-control switch inside the 1051 Control 
Unit to OFF, and back to ON. 

If a terminal is to be used exclusively with APIA360, 
the Keyboard Request feature should be removed, and the Text 
Time-out Suppression feature should be added. 



STARTING AND ENDING A WORK SESSION 

Each user of the system is assigned an .account juimbejr. 
This number is used to effect the sign-on that initiates a 
work session; serves to partially identify any work that the 
user may store in the system between sessions; and is used 
for accounting or billing purposes. 

If the account number is not known, or if one of the 
trouble reports given below is encountered and not 
understood, a message of inquiry can be sent to the APL 
Operator. This is accomplished by entering )0PR followed by 
a space and one line (not exceeding 120 characters) of an 
appropriate text. 

Such a message can be sent at any time after a 
connection has been established. It causes the keyboard to 
lock, awaiting a reply. If no reply is forthcoming, (and 
the sign-on has not been completed) , the connection will 
have to be broken and re-established before further 
communication with the system is possible. (After the 
sign-on, the keyboard may be unlocked by an .atteniAfiP 
JLiSESj- » described in Part 2.) 



ACTION 



NOTES 



Enter ) 

followed by an account 

number, with a key (i.e., a 

colon and password) , if 

required. 



The use of passwords as 
locks and keys is described 
in Part 2. A new user will 
have been advised if a key 
is required for his first 
sign-on. 
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Effect . 

1. A workspace will be 

activated for the terminal. 



2 . Accumulation of 
charges will begin. 



time 



Response : 

1. A broadcast message from 
the APL Operator may be 
printed. 

2. The port number, time of 
day, date, and user name 
associated with the account 
number will be printed on 
one line. The system 
identification will be 
printed on another line. 



A workspace can be thought 
of as both a notebook and a 
scratch pad. The details 
are explained in Part 2. 



Trouble .Eep.Qr.ts: 
NUMBER NOT IN SYSTEM 
means either exactly what it 
says, or that the number has 
a lock associated with it 
and the wrong key was used. 
The APL Operator should be 
consulted if help is 
required. 

INCORRECT SIGN -ON 
means the form of the 
transmitted command was 
faulty. Retry with a 
properly formulated sign-on. 

ALREADY SIGNED ON 

means that a work session is 
already in progress at the 
terminal. To start a 
session with a different 
account number, use command 
TC5 (see Part 2) , which ends 

the current session but 

holds the connection, and 
retry from the beginning of 
EC3. 

NUMBER IN USE 

means just that, or a 
temporary condition due to 
delays in the central 
computer. Retry from EC2 
after two minutes . If the 
condition persists, notify 
the APL Operator. 

NUMBER LOCKED OUT 

means that authorization for 

use of that number has been 

withdrawn. 
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3. SAVED, followed by the 
time of day and date that 
the activated workspace was 
last stored. 



This response will be 
omitted if the activated 
workspace is clear (i.e., 
not holding information) . 
If the response is given, 
the workspace is named 
CONTINUE. The use of 

workspace names is explained 
in Part 2. 



4. The keyboard will be 
unlocked. 



If this is the only reponse, 
a transmission error has 
occurred, or the entry did 
not start with an APL right 
parenthesis. In either 
case, the entry should be 
repeated in correct form. 
If the condition persists , 
retry from EC2, possibly 
dialing a different number. 



A work session is started, and the full APL system 
becomes available, once the sign-on is accomplished. Any 
system command of Part 2 or APL operation of Part 3 may now 
be entered for execution. 



Limits^ Use s£ ±bs System. No 
sign- on given here is required 
3, and the reading of Part 2 
only casual or restricted use 
For the purposes of such 
conveniently be terminated 
procedures: 

ACHQH 



££i*. DiscQQiiect flialrBE 

connection: 

Set the power switch to OFF. 

Effect : 

1. The active workspace will 

be stored under the name 

CONTINUE. 



system command other than the 
in order to make use of Part 
may therefore be deferred if 
is to be made of the system, 
use, a work session may 
by one of the following 



UQIES 

Use this procedure for 
dial-up connections only. 



If the workspace is clear, 
it will not be stored at 
this time. If it is stored, 
it will be automatically 
re-activated when the same 
account number is next used 
to sign on. See note for 
EC3, Response 3. 
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2. The duration of the work 
session and the amount of 
computer time used will be 
noted internally for later 
accounting. 

3. The connection to the 
central computer will be 
broken. 



BSSBQBSS: None. 



The DATA light will go out. 



BC5a Break any CQnnestisn: 
Enter ) CONTINUE 



This is command TC4, 
detailed in Part 2. 



Effect: 

1. 2. and 3. The same as for 

EC4. 



Response: 

1. Time of day and date, 

followed by CONTINUE 



Ireubie reEQEta: 

NOT WITH OPEN DEFINITION 

INCORRECT COMMAND 

The meanings of these 

reports , and correlative 

actions for them, are 

in Part 2. 



2. The port number, time of 
day, date, and user code 
will be printed. 

3. Accounting information 
will be printed. 



User codes comprise three 
characters which partially 
identify users. Their use 
is explained in Part 2. 

If a dial-up connection is 
being used, the DATA light 
will go out. 
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PART 2 
SYSTEM COMMANDS 



APL operations deal with transformations of abstract 
objects, such as numbers and symbols, whose practical 
significance, as is usual in mathematics, depends upon the 
(arbitrary) interpretation placed upon them. System 
commands in the APIA360 System, on the other hand, have as 
their subject the structures which comprise the system, and 
control functions and information relating to the state of 
the system, and therefore have an immediate practical 
significance independent of any interpretation by the user. 

In this Part the structure of the APIA360 system is 
described, and various notions essential to the 
understanding of system commands are introduced. Finally, 
the complete set of system commands is described in detail. 

WORKSPACES AND LIBRARIES 

Workspaces. The common organizational unit in the APIA360 
system~is the workspace. When in use, a workspace is said 
to be active,, and it occupies a block of working storage in 
the central computer. The size of the block, which is 
preset at a fixed value for a given system, determines the 
combined working and storage capacity of each workspace in 
that system. Part of each workspace is set aside to serve 
the internal workings of the system, and the remainder is 
used, as required, for storing items of information and for 
containing transient information generated in the course of 
a computation. 

An active workspace is always associated with a 
terminal during a work session, and all transactions with 
the system are mediated by it. In particular, the names of 
variables (data items) and defined functions (programs) used 
In~calculations always refer to objects known by those names 
in the active workspace; information on the progress of 
program execution is maintained in the sta£e indicator of 
the active workspace; and control information affecting the 
form of output is held within the active workspace. 
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Libraries. Inactive workspaces are stored in libiajjigs, 
where they are identified by arbitrary names. They occupy 
space in secondary storage facilities of the central 
computer and cannot be worked with directly. When required, 
copies of stored workspaces can be made active, or selected 
information may be copied from them into an active 
workspace. 



Libraries in APLN360 are either private or ESfeA±£» 
Private libraries are associated with individual users of 
the system, and are identified by the user's account number. 
Access to them by other users is restricted in that one user 
may not store workspaces in another person ' s library , nor 
can he obtain a listing of the workspaces already stored 
there. However, one user may activate a copy of another 
user's (unlocked) workspace if he knows the library number 
and workspace name. 

Public libraries are identified by numbers below 1000. 
They are not associated with individual users, although 
certain ones may be reserved by general agreement for groups 
of people working cooperatively. Anyone may store 
workspaces in a public library, and a listing of workspace 
names is available upon request if the library number is 
known. However, a workspace stored in a public library 
remains under the control of the user who put it there, and 
cannot be altered by others. 

NAMES 

Names of workspaces, functions, variables, and groups 
(see workspace control commands) may be formed of any 
sequence of alphabetic (A to Z, and A to Z) and numeric (o 
to 9) characters that starts with an alphabetic and contains 
no blank. Only the first 11 characters of workspace names, 
and the first 77 characters of other names are significant. 
Longer names may be used, but additional characters beyond 
these limits are ignored. 

The environment in which APL operations take place is 
bounded by the active workspace. Hence, the same name may 
be used to designate different objects (i.e., groups, 
functions, or variables) in different workspaces, without 
interference. Also, since workspaces themselves are never 
the subject of APL operations, but only of system commands, 
it is possible for a workspace to have the same name as an 
object it holds. However, the objects within a workspace 
must have distinct names, except as explained below. 
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Local and global significance. In the execution of defined 
functions it is often necessary to work with intermediate 
results which have no significance either before or after 
the function is used. To avoid cluttering the workspace 
with a multitude of variables introduced for such transient 
purposes, and to allow greater freedom in the choice of 
names, the function definition process (see Part 3) provides 
a facility for designating certain variables as local to the 
function being defined. Variables not so designated, and 
all functions and groups, are said to be global. 

A local variable may have the same name as a global 
object, and any number of variables local to different 
functions may have the same name. 

During the execution of a defined function, a local 
variable will supersede a function or global variable of the 
same name, temporarily excluding it from use. If the 
execution of a function is interrupted (leaving it either 
suspended, or pendent, see Part 3), the local variables 
retain their dominant position, during the execution of 
subsequent APL operations, until such time as the halted, 
function is completed. System commands, however, continue 
to reference the global homonyms of local variables under 
these circumstances. 

LOCKS AND KEYS 

Stored workspaces and the information they hold can be 
protected against unauthorized use by associating a lock, 
comprising a colon and a password of the user's choice, with 
the name of the workspace, when the workspace is stored. In 
order to activate a locked workspace or copy any information 
it contains, a colon and the password must again be used, as 
& kgy.» in conjunction with the workspace name. Listings of 
workspace names, including those in public libraries, never 
give the keys, and do not overtly indicate the existence of 
a lock. 

Account numbers can be similarly protected by locks and 
keys, thus maintaining the security of a user's private 
library and avoiding unauthorized charges against his 
account. 

Passwords for locks and keys may be formed of any 
sequence of alphabetic and numeric characters up to eight 
characters long, without blanks. Characters beyond the 
eighth are ignored. In use as either a lock or key, a 
password follows the number or name it is protecting, from 
which it is set off by a colon. 
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ATTENTION 

Printed output at a terminal can be cut off, or the 
execution of an APL operation can be interrupted, and 
control returned to the user, by means of an attention 
signal. Since the keyboard is locked during printing or 
computing, the signal must be generated by means other than 
one of the standard keys. 

On terminals equipped with an interrupt feature, the 
attention signal is generated by depressing the appropriate 
key once, firmly. On IBM 2741 terminals this key is usually 
of a distinctive color, and is marked ATTN. (The same key 
is used for linefeed when the keyboard is not locked. ) 

For terminals not so equipped, the attention signal is 
generated by momentarily interrupting the connection to the 
central computer. The method depends upon the type of 
connection : 

with dial-up telephones, uncradle the handset, set 
the pushbutton switch to TALK for two to three 
seconds, and then reset it to DATA; 

with leased telephone lines, set the terminal power 
switch to OFF and then back to ON, with deliberate 
speed. 

If the connection is broken, in either case, for more than 
five seconds, the central computer will interpret this as a 
signal to end the work session and will execute action BG4 
of Part 1. 

Following an attention signal the keyboard will unlock, 
and the type carrier will return to the normal position for 
input (six spaces from the left margin) . If the carrier 
does not do this, enter blank lines repeatedly until it 
does. In some cases a line will be printed before the 
keyboard unlocks, telling where a function in progress was 
interrupted. 

Except for communication commands (and then only if the 
delivery of a message is delayed) , the execution of system 
commands, once entered, cannot be interrupted. However, the 
printed responses or trouble reports following a system 
command can be suppressed by a properly timed attention 
signal. 
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USE OF SYSTEM COMMANDS 

System commands and APL operations are distinguished 
J}JO°iionaiIy by the fact that system commands can be called 
for only by individual entries from the keyboard, and cannot 
be executed dynamically as part of a defined function. They 
are distinguished in f&rm by the requirement that system 
commands be prefixed by a right parenthesis, which is a 
syntactically invalid construction in APL. 

There is some system control which it may be desirable 
to exert dynamically, and there are some items of system 
information which can be profitably used during the 
execution of a program. For these purposes APIA360 provides 
appropriate sysiemrdependgnt functigns and library 
functions, which can be used like other APL operations. 
These functions are described in Part 3 and Part 4, 
respectively. Where a system command duplicates the action 
of one of them, this fact will be noted in the description 
of the system command in this Part. 

All system commands can be executed when. the terminal 
is in the exeguiign mode, in which APL operations are 
executed forthwith upon entry. However, in definitign mgde, 
in which sequences of operations are being composed into 
functions for later execution, commands which call for 
storing a copy of the workspace, or which might otherwise 
interfere with the definition process itself, are forbidden. 
(The two terminal modes are treated more fully in Part 3.) 

Classification of, commands. System commands are 
conveniently grouped into five classes with regard to their 
effect upon the state of the system: 

!• SSHBAS&l SSSt r 2l commands affect the relation of a 
terminal to the system. 

2 « Workspace control commands affect the state of the 
active workspace. 

3. Library cgntrol commands affect the state of the 
libraries. 



4. Inquiry commands provide information without 
affecting~the state of the system. 

5. Cgmmunicatign commands effect the transmission of 
messages among terminals. 
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The text that follows is based upon this 
classification, although it will be seen that certain of the 
terminal control commands also affect the libraries, and one 
of the library control commands may sometimes affect the 
state of the active workspace. 

Ngrmal responses and trguble repgr£s. Any entry starting 
with a right parenthesis will be interpreted by the system 
as an attempt to execute a system command. When the command 
is successfully executed, the ngrmal respgnse, if any, will 
be printed. The expected reponse is given with the 
description of each command. 

If, for any reason, a command cannot be executed, an 
appropriate trouble report will be printed. The most common 
report is INCORRECT COMMAND. This means that the command 
was incomplete, mis-spelled, used a wrong modifier, or was 
otherwise malformed. The corrective action in every case is 
to enter a properly composed command. The meanings and 
corrective actions for other trouble reports are given in 
the notes accompanying the description of each command. 

Clear, wgrjsspasg*. There are certain transient failures of 
the system which cause the active workspace to be destroyed. 
If this should occur, the message CLEAR WS will be printed, 
indicating that the active workspace has been replaced by a 
cigar workspace. (The attributes of a clear workspace are 
given in the section on workspace control commands, see 
WC1.) This situation rarely arises, but the probability of 
its occurrence is slightly higher during the execution of 
system commands . 

Summary. The purposes, forms, responses, and trouble 
reports for all system commands are summarized in Table 2.1. 
Where the first word of a command form is more than four 
characters long, only the first four are significant. The 
others are included only for mnemonic reasons, and may be 
dropped or replaced, as desired. For example, )CLEAR, 
)CLEA, )CLEAVER, etc., are all equivalent. 

In general, the elements of a command form must be 
separated by one (or more) spaces. Spaces are not required 
immediately following the right parenthesis, or on either 
side of the colon used with passwords, but can be used 
without harm. 
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Reference and Purpose 
COMMAND FORM '.2.3 



NORMAL RESPONSE 



TROUBLE REPORTS 4 



2 3 4 5 
16 



16 



6 16 
6 16 



TCI Sign on designated user and start a work session. 

)NUMBER [KEY] [TEXT]; PORT, TIME, DATE, USER; SYSTEM; [SAVED , TIME, DATE] 1 

TC2 End work session. 

)OFF [LOCK] PORT, TIME, DATE, USER CODE; TIME USED 

TC3 End work session and hold dial-up connection. 

)OFF HOLD [LOCK] PORT, TIME, DATE, USER CODE; TIME USED 

TC4 End work session and store active workspace. 

)CONTISUE [LOCK] [TIME,DATE,C0MTWE] ; PORT, TIME, DATE, USER CODE; TIME USED 

TC5 End work session, store active workspace, and hold dial-up connection. 

'CONTINUE HOLD [LOCK] [TIME, DATE, CONTINUE] , PORT, TIME .D ATE. USER CODE; TIME USED 

IWCT Activate a clear workspace. " — 

) CLEAR CLEAR WS 

WC2 Activate a copy of a stored workspace. 

)LOAD WSID [KEY] SA VED , TIME , DATE 

WC3 Copy a global object from a stored workspace. 

tCOPY WSID [KEY] NAME SA VED , TIME , DATE 
WC3a Copy all global objects from a stored workspace. 

) COPY WSID [KEY] SAVED, TIME, DATE 

WC4 Copy a global object from a stored workspace, protecting active workspace. 

)PCOPY WSID [KEY] NAME SA VED , TIME , DATE ; WOT COPIED :, LIST OF OBJECTS] 6 7 8 9 10 16 

WC4a Copy all global objects from a stored workspace, protecting active workspace. 

)PCOPY WSID [KEY] SA VED, TIME, DATE; [SOT COPIED : , LIST OF OBJECTS] 6 7 8 10 16 

WCS Gather objects into a group. 

)GROUP NAME[S] NONE 

WC6 Erase global objects. 

) ERASE NAME [S] [SOT ERASED : ,LIST OF OBJECTS] 

WC7 Set index origin for array operations. 

)0RIGIN INTEGER, 0-1 IMS, FORMS* ORIGIN 

N£» -Set maximum for significant dtgitsi . in^output. 

yoIGITS INTEGER, 1-16 IMS, FORMES MAXIMUM 

RC9 Set maximum width for an output line. 

>WIDTH INTEGER, 30-130 WAS, POWER WIDTH 
WC10 Change workspace identification. 

iVSID WSID yds, FORMER WSID 

LCI Re-store a copy of the active workspace. 



16 

7 8 16 

6 7 8 9 10 16 

6 7 8 10 16 



11 16 



16 



16 



)SAVE TIME, DATE, WSID 

LOa Store a copy of the active workspace 

)SAVE WSID [LOCK] TIME;t*T8 

LC2 Erase a stored workspace. 

)DR0P WSID TIM E, DATE 
IQ1 ~~~~ ~-~ 



TROUBLE REPORT FORMS 

1 NUMBER SOT IS SYSTEM 

2 INCORRECT SIGN-OS 

3 ALREADY SIGNED OS 

4 SUMBBR IN USE 

5 NUMBER LOCKED OUT 

6 NOT WITH OPES DEFINITION 

7 WS SOT POUND 

8 WS LOCKED 

9 OBJECT NOT FOUND 

10 WS FULL 

11 NOT GROUPED, NAME IS USE 

12 SOT SAVED, WS QUOTA USED UP 

13 SOT SAVED, THIS WS IS WSID 

14 IMPROPER LIBRARY REFERENCE 

15 MESSAGE LOST 

16 ISCORRECT COMMAND 



16 



16 
16 



6 12 13 14 16 
6 12 13 14 16 



List names of defined functions. 

)FNS [LETTER] , FUNCTION NAMES 
IQ2 List names of global variables. 

)VARS [LETTER] VARIABLE NAMES 

IQ3 List names of groups. 

)GRPS [LETTER] GROUP NAMES 

XQ4 List membership of designated group, 

)GRP NAME FUNCTION NAMES, VARIABLE NAMES 

IQ5 List halted functions (state indicator). 

> S J SEQUENCE OF HALTED FUNCTIONS 

IQ6 List halted functions and associated local variables (augmented state indicator) 

> SIV SEQUENCE OF HALTED FUNCTIONS WITH NAMES OF LOCAL VARIABLES 

IQ7 Give identification of active workspace. 

WSID WSID 

IQ8 List names of workspaces in designated library. 

)LIB [NUMBER] NAMES OF STORED WORKSPACES 

IQ9 List ports in use and codes of connected users. 

)P0RTS PORT NUMBERS AND ASSOCIATED USER CODES 

IQ10 List port numbers associated with designated user code. 

)P0KTS CODE FORT NUMBERS 

Oil Address text to designated port. ~ ~ ~ 

)MSGN PORT [TEXT] SEST 
CM2 Address text to designated port, and lock keyboard. 

)HSG PORT [TEXT] SEST 
CM3 Address text to recording terminal (APL Operator). 

yOPRN tTEXT] SENT 

CN4 Address text to recording terminal (APL Operator) , and lock keyboard. 

)0PR [TEXT] SENT 



7 14 16 



16 



16 



16 

16 



16 
16 



16 



14 16 

16 



16 



Notes : 



Items in brackets are optional. 



15 16 

15 16 



15 16 



15 16 



2. KEY or LOCK: a password set off from preceding text by a colon. 

3. WSID: library number and workspace name, or workspace name alone, as required. 

4. See insert table of trouble report forms. 



TERMINAL CONTROL COMMANDS 

There is one command for starting a work session, and 
there are four commands for ending one. The variations in 
ending allow for automatically storing a copy of the active 
workspace, and for holding a dial-up telephone connection to 
the central computer for an immediate start of another work 
session. The starting command has been described in Part 1 
(EC3) . 

£2£££d savings. Any action that interrupts a telephone 
connection for more than five seconds will cause the work 
session to end, and usually cause a copy of the active 
workspace to be stored. This provides a safeguard against 
loss of work in case of failure in the telephone circuits, 
or accidental loss of power at the terminal. It is also the 
basis of the di§£QQne.££ action described in EC4 of Part 1. 

A work session can also be stopped remotely, from the 
system's recording terminal, in an action known as a beuDfie. 
As in a disconnect, a copy of the active workspace is 
usually stored automatically . The bounce may be used when a 
port is required for a special purpose, or to clear the 
system of all users before stopping the APXA360 operation 
completely. 



If a work session is ended because of failure 
central computer, the active workspace is not stored. 



of the 



XbS COSTISUE HBEkSBaSS. When the active workspace is stored 
automatically, as a result of a disconnect, bounce, or one 
of the saatinue. commands described below, it goes into the 
user's private library and is given the name COSTISUE. If 
the active workspace had a password associated with it, 
CONTINUE will be locked with the same password. 

If CONTINUE is automatically stored, and is not locked, 
it will be automatically activated at the next sign-on; 
otherwise, a clear workspace is activated. 

Since COSTISUE will replace any workspace that may have 
been previously stored under that name, there is a danger 
that repeated line failures, while working with a locked 
workspace, could lead to a complete loss of information. To 
protect against this possibility, a clear workspace is never 
stored automatically. 



Table 2.1s SYSTEM COMMANDS 



iQtercUEted ac£iyiti§§. An APL operation in progress at the 
moment of occurrence of a bounce or disconnect may or may 
not be carried to its normal conclusion. A defined function 
in progress at such a moment will be suspended, but its 
progress can be resumed at a later work session in 
accordance with the procedures given in Part 3. A system 
command, once begun, will continue to completion regardless 
of the state of the terminal. 

If a bounce or disconnect occurs when the terminal is 
in definition mode, the definition process is arbitrarily 
terminated by the system. To proceed with the definition 
when CONTINUE is next activated, the definition mode can be 
re-established according to the procedures given in Part 3. 
The continue commands will be rejected in definition mode. 

Detailed description. The trouble reports NO SPACE and 
LIBRARY TABLE FULL have been omitted from Table 2.1, and are 
also omitted from the notes below, because their occurence 
is infrequent, and no corrective action can be taken from a 
remote terminal. They can arise in response to a continue 
command or a save command (see section on library control), 
and signify that certain of the physical resources of the 
system have been exhausted. 

Elapsed time or time of day, given as a system 
response, is always in hours, minutes, and seconds; two 
digits for each, separated by periods. A date response is 
given as month, day and year; two digits for each, separated 
by slashes. Clock hours are counted continuously from 
midnight of the indicated day, and if the system runs past 
midnight it is possible to have time readings well above 24 
hours. For example, 3t.22.00 07/11/68 would be 22 minutes 
past 10 AM on July 12, 1968. 



ACTION 



NOTES 



TCI.. Start a work session: 
This is the sign-on, 
described in EC3 of Part 1. 



See Part 1, EC3. 



37 



TC2i End work session : 
Enter )0FF 

followed by a colon and a 
password, if desired. 



Passwords longer than eight 
characters are accepted, but 
only the first eight are 
meaningful. Spaces around 
the colon are neutral. 



Effect : 

1. The currently active 
workspace will vanish. 

2. The duration of the work 
session and the amount of 
computer time used will be 
noted internally for later 
accounting. 

3. The password, if used, 
will become a new lock on 
the account number. 



There is no effect on any 
stored workspace. 



Once applied, a lock stays 
in effect until explicitly 
changed by an ending command 
that contains a colon. 



4. A dial-up connection to 
the central computer will be 
broken. 

ResEonse: 

1. The port number, time of 
day, date, and user code 
will be printed on one line. 

2 . Accounting information 
will be printed on two 
lines, giving terminal 
connection time and central 
computer time. 



An existing lock is removed 
if no password follows the 
colon. 

If a colon is not used, the 
existing lock, if any, 
remains in force. 



Trouble report: 

INCORRECT' COMMA ND 



The time used in this 
session and cumulative time 
since the last accounting 
are given in the standard 
format, for both terminal 
time and computer time. 

The DATA light on telephone 
datasets will go out. 
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T£3j. End work session and 
hold dial-up connection : 
inter )OFF~HOW 
followed by a colon and a 
password, if desired. 



Effect : 

I. 2. and 3. 

TC2." 



Same as for 



See note at TC2. 



4. The dial-up telephone 
connection will be 
maintained for 60 seconds, 
pending a new sign-on. 

Response : 

1. and 2. Same as for TC2. 



An attention signal at this 
time may cause the 
connection to be broken. 



3?roBfe.l§ £§E2f i • 
INCORRECT COMMAND 



IS4i ISii work session and 
§£S£S active workspace : 
Enter ) CONTINUE 
followed by a colon and a 
password, if desired. 



See note at TC2. 

A bounce has the same effect 
and response as this 
command. A disconnect has 
the same effect, but no 
response. 



Effect : 

1. A copy of the currently 
active workspace will be 
stored in the user's private 
library with the name 
CONTINUE. If the workspace 
had been activated from a 
stored workspace with a 
lock, the same lock will be 
applied to CONTINUE. 

2. 3. and 4. Same as for 
TC2. 



This effect will not take 
place if the active 
workspace is not holding 
information. 

When the workspace is saved 
it replaces any workspace 
previously stored with the 
name CONTINUE. 
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Response : 

1. Time of day and date, 

followed by CONTINUE. 



This response will be 
omitted if the workspace was 
not saved. See note at 
Effect 1. 



2. and 3. Same as for TC2, 
response 1 and 2. 



TC5.. End work session^ 
store active workspace.,, and 
hold dial-up S°-S2§S£i°0 ' 
inter )C0NTINUE HOLD 
followed by a colon and a 
password, if desired. 

Effect : 

1. Same as for TC4. 

2. and 3. Same as for TC2. 
4. Same as for TC3. 



Trouble reports: 
NOT WITH OPEN DEFINITION 
means that the terminal is 
in definition mode. Close 
the definition by entering 
the character V. (See 
mechanics of function 
definition in Part 3. ) 

INCORRECT COMMAND 

See note at TC2 . 



Response : 

1. 2. and 3. Same as for 

TC4. 



Trouble reports: 

NOT WITH OPEN DEFINITION 

See TC4. 



INCORRECT COMMAND 
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WORKSPACE CONTROL COMMANDS 

The commands in this class can replace the active 
workspace with a clear one, or with a copy of a stored 
workspace; bring together in the active workspace 
information from many stored workspaces; form grQBBS within 
the active workspace; remove unwanted objects from the 
active workspace; and set controls governing certain 
operations. No command in this class affects any but the 
active workspace. 

ABEiiSation packages. The usefulness of a terminal system 
is enhanced by the availability of many different 
collections of functions and variables, each of which is 
organized to satisfy the computational needs of some area of 
work; for example, standard statistical calculations, 
exercises for teaching a scholastic subject, complex 
arithmetic, business accounting, text editing, etc. The 
workspace-centered organization of APIA360 lends itself to 
such packaging, because each collection moves as a coherent 
unit when the workspace containing it is stored or 
activated. 

The SQpy commands provide a convenient way to assemble 
packages from components in different workspaces. The 
3Ey.BE command makes it convenient to have a multiplicity of 
more specialized packages in a single workspace, sharing 
common elements, but available individually by copying the 
appropriate group. 

Sesbbs. The grgBB command assigns a single name to a 
collection of names, in order to provide more convenient 
reference to selected functions and global variables. The 
group name can subsequently be used for three purposes: to 
move a copy of the entire set of referenced objects between 
workspaces, to incorporate the group members within another 
group, and to erase, in a single operation, all objects 
referenced by the group. Each of these is further explained 
below, in connection with the relevant operation. 

Information, transfer between workspaces. Information 
entered or developed within one workspace can be made 
available .within another by means of the SQEX and 
BEStecting-cgpy commands, which reproduce within the active 
workspace objects from a stored workspace. These are two 
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sets of parallel commands which differ only in their 
treatment of an object in the active workspace which has the 
same name as an object being reproduced: the copy commands 
will replace the existing object, whereas the 
protecting-copy commands will not make the replacement. 

A copy command of either type can be applied to an 
entire workspace or to a single object (i.e., a function, 
variable, or group). When an entire workspace is copied, 
all the functions and global variables within it are subject 
to the operation, but its index origin and output control 
settings, state indicator, and local variables are left 
behind. 

When a group is copied without protection, both its 
definition (i.e., the group name and the collection of names 
composing the group) , and the objects referenced by the 
names within it, are reproduced in the active workspace. 
When copied with protection, the group itself, or any of the 
objects referenced by its members, will be omitted in order 
to protect an object in the active workspace. If the group 
definition is successfully copied under these circumstances, 
the names composing it will refer to the global objects by 
those names in the active workspace, regardless of whether 
they were copied with the group or present before. 

Detailed DessriBtisn. The term wprkjs.B&c.e idefflfciJij^tion is 
used here to mean either a library number followed by a 
workspace name, or a workspace name alone. When a name is 
used alone, the reference is to the user's private library. 
A key is a colon followed by a password. 



ACTION 

WC1. Activate 
w o r kspa ce : 
Enter ) CLEAR . 



clear 



Effect : 

1. A clear workspace will be 
activated, replacing the 
presently active workspace. 



NOTES 

This command is used to make 
a fresh start, discarding 
whatever is in the active 
workspace. 



A clear workspace has no 
variables, groups, or 
defined functions. 



Its control settings are: 
index origin, 1; significant 
digits, 10; line width, 120. 

Its workspace identification 
does not match that of any 
stored workspace. (See 
section on library control.) 
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Re spgn s e : 
\.~ CLEAR WS 



Trouble message: 

INCORRECT COMMAND 



WC2 A Activate a copy of a 
stored workspace: 
Enter" )LOAD~ 

followed by a space and a 
workspace identification 
(with the key, if required). 

Ef f ect : 

l. _ A copy of the designated 
workspace will be activated, 
replacing the presently 
active workspace. 

Response: 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 



This command may be used to 
obtain the use of any 
workspace in the system 
whose identification (and 
password) is known. 



Trouble messages: 

WS NOT FOUND 

means there is no stored 

workspace with the given 

identification. 

WS LOCKED 

means that no key, or the 
wrong key, was used when one 
was required. 

INCORRECT COMMAND 



HCi* COPY 3 global objest 
from a stored workspace: 
Enter )COPY 

followed by a space and a 
workspace identification 
(with the key, if required), 
followed by a space and the 
name of the object to be 
copied. 

Effect : 

I7~A - copy of the designated 
Object will appear in the 
active workspace with global 
significance, replacing 
existing global homonyms. 



A global object may be a 
group, function, or global 
variable. 

When applied to a group, all 
copy commands operate both 
on the group definition and 
on objects referenced by the 
group members . 



Members of a group do not 
necessarily have referents; 
but a group member without a 
referent in the source 
workspace may find one in 
the active workspace. 
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Response : 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 



Trouble messages : 
NOT WITH OPEN DEFINITION 
means that the terminal is 
in definition mode. Either 
close the definition by 
entering V, or defer the 
copy operation. 

WS NOT FOUND 
See WC2. 



WS LOCKED 
See WC2. 

OBJECT NOT FOUND 

means that the designated 

workspace does not contain a 

global object with the given 

name. 



WCJa. Copy all global 

objects from a stored 
workspace : 
Enter ~)COPY 

followed by a space and a 
workspace identification 

(with the key, if required) . 

Effect : 

1. A copy of all functions, 
groups, and global variables 
in the source workspace will 
appear in the active 
workspace with global 
significance, replacing 
existing global homonyms. 



WS FULL 

means that the active 
workspace could not contain 
all the material requested: 
if copied at all, a variable 
will be copied completely; a 
partially copied function 
will leave the terminal in 
definition mode; some 
objects may be completely 
overlooked. Status may be 
determined by using appro- 
priate inquiry commands . 

INCORRECT COMMAND 

See notes at WC3. 



Local variables, the state 
indicator, and settings for 
origin, significant digits, 
and width are not copied. 



Response: 

17" SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 



WC4j Sepy a global sfeject 
from a stored workspace, 
E£2i§££iS3 iiis sstiye 
workspace : 
Enter )PCOPY 

followed by a space and a 
workspace identification 
(with the key, if required) , 
followed by a space and the 
name of the object to be 
copied. 

Effect: 

1. A copy of the designated 

object will appear in the 

active workspace unless 

there is an existing global 

homonym. 



Response; 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 

2. NOT COPIED:, followed by 
the names of objects not 
copied, will be printed if 
appropriate. 



Trouble messages: 

NOT WITH OPEN DEFINITION 

WS NOT FOUND 

WS LOCKED 

WS FULL 

INCORRECT COMMAND 

See WC3 for all meanings. 



See notes at WC3. 



When a group definition is 
copied, any member whose 
referent was blocked will, 
perforce, refer to the 
referent of its homonym. 

lEQuble messages: 

NOT WITH OPEN DEFINITION 

WS NOT FOUND 

WS LOCKED 

OBJECT NOT FOUND 

WS FULL 

INCORRECT COMMAND 

See WC3 for all meanings. 



WCia*. Cqev all global 
SfelSStS from a stgred 

wsrkgpaee, pretesting thg 

active workspace: 
Enter )PC0PY 

followed by a space and a 
workspace identification 
(with the key, if required). 

Effect : 

1. A copy of all global 
objects in the source 
workspace which do not have 
global homonyms in the 
active workspace will appear 
in the active workspace. 

Response: 

1. SAVED, followed by the 
time of day and the date 
that the source workspace 
was last stored. 

2. NOT COPIED:, followed by 
the names of objects not 
copied, will be printed if 
appropriate. 



See notes at WC3. 



See note at WC3a, Effect 1. 
See note at WC4, Effect 1. 



Trouble messages: 

NOT WITH OPEN DEFINITION 

WS NOT FOUND 

WS LOCKED 

WS FULL 

INCORRECT COMMAND 

See WC3 for all meanings. 
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WC5.J. Gather names into a 

group : 

Enter ) GROUP 

followed by a space and one 

or more names separated by 

spaces . 

Effect: 

1. The first name will be 
the name of a group having 
the other names as members , 
subject to the rules given 
in the adjacent notes. An 
existing group with the same 
name will be superseded. 



The first name used in the 
command must not be the name 
of a function or global 
variable. 

Any name may be a member of 
a group; names of groups, 
functions, and global 
variables, and names without 
current global referents are 
all acceptable. 

Members may be added to an 
existing group by using the 
group name twice in the 
command: as the first name 
and as another . 



2. If only one name is used 
in the command, no group is 
formed, and an existing 
group by that name is 
dispersed. 

Response: None. 



When a group is dispersed 
the group definition is 
destroyed, but the referents 
of the group members are 
unaffected. 

Trouble rcpg.r£s: 
NOT GROUPED, NAME IN USE 
means that the first name 
used in the command is the 
name of a function or global 
variable. Erase the 
offending object, or use a 
different name. 



INCORRECT COMMAND 



WC6 A Erase global objects: 

Enter )ERASE 

followed by a space and the 

names of objects to be 

deleted, separated by 

spaces. 

Effect : 

1. "Named objects having 
global significance, other 
than pendent functions, will 
be expunged. 



This is the only way to 
remove a global variable, 
and the most convenient way 
to remove a collection of 
objects. 



Names which do not refer to 
global objects are ignored. 

When a group is erased, both 
the group and the referents 
of its members are expunged. 



Response : 

NOT ERASED:, followed by the 

names of functions not 

erased will be printed, if 

appropriate. 



Trouble report: 

INCORRECT COMMAND 



WC7. Set index origin for 
a£?ay operations: Enter the 
characters ) ORIGIN 
followed by a space and a 
or 1. 



A dynamically executable 
equivalent function is 
available (see Part 4) . 



Effect : 

1. First elements of arrays 
in the workspace will be 
numbered zero or one, as 
indicated, and subsequent 
use of index-dependent APL 
operations will be 
appropriately affected. 



Response : 

1 . WAS , followed 

former origin. 



by the 



These matters are explained 
in Part 3. 



Trouble reper±: 

INCORRECT COMMAND 



nificant digits in output : 

Enter )DIGITS 

followed by a space and an 

integer between 1 and 16 

inclusive. 



A dynamically executable 
equivalent function is 
available (see Part 4) . 



Effect: 

1. Subsequent output of 
numbers will show no greater 
number of significant digits 
than indicated. 



This command has no effect 
on the precision of internal 
calculations, which is 
approximately 16 decimal 
digits . 



Response : 

1. WAS~ followed 

former maximum. 



by the 



Trguble reporti 

INCORRECT COMMAND 



W£9-i Sgt maximum width f o£ 

an output line: 

Enter )WIDTH 

followed by a space and an 

integer between 30 and 130 

inclusive. 



A dynamically executable 
equivalent function is 
available (see Part 4) . 



Eff§S£ : 

1. Subsequent output of all 
kinds, except messages 
between terminals, will be 
limited to a line width no 
greater than the number of 
spaces indicated. 

Response : 

l7 WAS, followed by the 

former maximum width. 



This affects neither the 
mechanical margin stops nor 
the allowable length of 
input lines. 



Trouble reports 

INCORRECT COMMAND 



49 



WClOi Change workspace 

identification : 

Enter ")WSID~ 

followed by a space and a 

workspace identification. 



Ef f get : 

1. The active workspace will 
assume the specified 
identification. A lock 
associated with the 
workspace will be retained. 



This command can be used to 
guard against inadvertently 
changing a stored workspace 
that has just been loaded; 
and conversely, to enable 
the replacement of a stored 
workspace without first 
using the drop command, when 
the active workspace came 
from a different source. 
(See section on library 
control commands . ) 



See command LCI for 
implications of this. 



the 



B§ spouse, s 

1. WAS, followed by the 
former workspace 

identi f i cation . 



Irguble report: 

INCORRECT COMMAND 



LIBRARY CONTROL COMMANDS 

There are two basic operations performed by the 
commands in this class. The .save commands cause a copy of 
an active workspace to be stored in a library, and the drop 
command causes such a stored copy to be destroyed. 

The save commands and the load command are symmetric, 
in the sense that a load command destroys an active 
workspace by replacing it with a copy of a stored workspace, 
while a save command may destroy a stored workspace by 
replacing it with a copy of the active workspace. 

SB&HS3&£[ °J work. When a workspace is stored, an exact 
copy of the active workspace is made, including the state 
indicator and intermediate results from the partial 
execution of halted functions. These functions can be 
restarted without loss of continuity (see Part 3) , which 
permits considerable flexibility in planning use of the 
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system. For example, lengthy calculations do not have to 
be completed at one terminal session; student work can be 
conducted over a series of short work periods, to suit class 
schedules; and mathematical experimentation or the 
exploration of system models can be done over long periods 
of time, at the investigator's convenience. 

Workspace identification. A library number and a name, 
together, uniquely identify each stored workspace in the 
system. An active workspace is also identified by a library 
number and a name, and as copies of stored workspaces are 
activated, or copies of the active workspace are stored, the 
identification of the active workspace may change according 
to the following rules: 



1. A workspace activated from a library 
identification of its source. 



assumes the 



2. When a copy of the active workspace is stored, the 
active workspace assumes the identification assigned to 
the stored copy. 

3. The library number and name may be arbitrarily 
changed by the use of command WC10. 

4. A clear workspace activated by a clear command, a 
sign-on, or a system failure is called CLEAR WS , which 
cannot be the name of a stored workspace. 

The identification of active workspaces is used in two 
ways. First, as a safeguard against the inadvertent 
replacement of a stored workspace by an unrelated one: an 
attempt to replace, by a copy of the active workspace, any 
stored workspace other than the one with the same 
identification (or the one named CONTINUE), will be stopped. 
Second, as a convenience when the active workspace is to be 
re-stored with changes: the use of the command )SAVE , 
without modification, implicitly uses the identification of 
the active workspace. 

Library and account numbers. A user's account number is 

also" - the~number "of his private library. The numbers of 

public libraries range from 1 to 999, and do not correspond 
to any account number. 

Each stored workspace has implicitly associated with it 
the account number signed on at the terminal from which the 
save command was entered, and may not be either replaced or 
erased, except from a terminal signed on with the same 
account number. Thus, a user is prevented from affecting 
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the state of another user's private library, or tampering 
with public library workspaces which he did not store. He 
may, of course, activate a copy of any workspace stored in 
the system, if he knows the library number and name (and 
password, if required) . 

Storage allotment. A user of APIA360 is assigned library 
space in terms of the maximum number of stored workspaces he 
may have at one time. This quota applies to the combined 
total of workspaces stored either in his private library or 
in public libraries. The allotment for each user is 
determined by those responsible for the general management 
of a particular system, and can be changed from the 
recording terminal, as required, within the bounds of the 
physical resources of the system. ' 

Up to the number in his quota, a user may assign 
arbitrary names to the workspaces he stores. Beyond that 
point he always has available one workspace named CONTINUE 
in his private library. 

Use gf the CONTINUE Horks.eacg. This workspace has the 
property that it may be freely replaced by an active 
workspace having any identification whatsoever. It is thus 
always available as temporary storage, but carries with it 
the danger of being easily replaced, as described in the 
section on terminal control commands. 

The attributes of the CONTINUE workspace are the same 
whether stored as a result of a continue command, 
disconnect, or bounce, or stored by virtue of a save command 
using that name. In the last case, the active workspace 
assumes the name CONTINUE, as it would any other name under 
like circumstances. 

Purging a w.orksp.ace. The sequence of commands, 
~)SAVE ABC12.3, )CLEAR, )COPY ABCX2Z, will purge the active 
workspace, clearing it of all but its functions, groups, and 
global variables, and' reset its controls (seeWCl). This 
often results in more usable space than can otherwise be 
realized. Subsequently, the commands )WSID ABC123 and 
)SAVE may be used to store a copy of the purged workspace 
under its former name. 
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netailad Daanri pti on - The term workspace, identification 
will be used with the same significance as for the workspace 
control commands. 



ACTIOS 

LCU Be.-s.toxe. a copy af th.e 
ac.ti.ye. workspace: 
Enter )SAVE 

Effect: 

1. A copy of the active 
workspace will replace the 
stored workspace with the 
same identification. 



2. A password associated 
with the active workspace 
will continue in effect, and 
the stored workspace will be 
locked with this password. 

Baap.aa.ae: 

I . The time of day , date , 
and workspace identification 
will be printed. 



HQ1ES 



New workspaces can be stored 
by this command only if the 
identification of the active 
workspace has been changed 
by WC10. 

This forestalls inadvertent 
omission of a lock while 
actively engaged with a 
confidential workspace. 



Xrauhla reporta: 

NOT WITH OPEN DEFINITION 
means that the terminal is 
in function definition mode. 
Either close the definition 
by entering V, or defer the 
save operation. 

NOT SAVED, WS QUOTA USED UP 
means that the allotted 
number of stored workspaces 
has previously been reached. 
Unless this is increased, 
the workspace can be stored 
only by replacing a 
workspace already stored. 
CONTINUE may be replaced 
directly; any other must be 
erased first, or the 
identification of the active 
workspace must be made to 
match by WC10. 
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NOT SAVED, THIS WS IS 

CLEAR WS 

results from the fact that 
CLEAR WS. cannot be the name 
of a stored workspace. 
Either change the name by 
WC10, or use LCla. 

IMPROPER LIBRARY REFERENCE 
means that an attempt was 
made either to replace a 
stored workspace that is not 
under control of the account 
number signed on at the 
terminal, or to store into a 
non-existent library. 

INCORRECT COMMAND 



LCla.^ Stars a copy of. the 

active workspace: 

Enter )SAVE 

followed by a space and a 

workspace identification, 

with a colon and password, 

if desired. 

Effect: 

1. A copy of the active 
workspace will be stored 
with the designated 
identification, and with the 
assigned lock, if a password 
was used. 



2. The active workspace will 
assume the workspace 



identification 
command. 



used in the 



This form of the save 
command allows new 
workspaces to be added to a 
library more conveniently , 
and permits locks to be 
added or removed from 
workspaces already present. 



A stored workspace with the 
same identification will be 
replaced. 

A lock on a stored workspace 
will not be retained if the 
command does not include a 
lock explicitly. 

To this extent only, this 
command may affect the state 
of the active workspace. 



Response: 

1. The time of day and date 

will be printed. 



Trouble reports: 

NOT WITH OPEN DEFINITION 

means the same as for LCI. 

NOT SAVED, WS QUOTA USED UP 
means the same as for LCI. 

NOT SAVED, .THIS WS IS 
followed by identification 
of the active workspace, 
means a stored workspace 
with the identification used 
in the command exists, but 
this identification does not 
match that of the active 
workspace. 

IMPROPER LIBRARY REFERENCE 

means the same as for LCI. 

INCORRECT COMMAND 



LC2~ Erase a stared wark= 

space: 

Enter )DROP 

followed by a space and a 

workspace identification. 

Effect: 

1. The designated stored 

workspace will be expunged. 



Sesponse: 

1. The time of day and date 

will be printed. 



Since a key is not used, a 
locked workspace whose key 
has been lost can always be 
removed from the system. 



This command has no effect 
on the active workspace, 
regardless of its 
identi f ication . 

Trouble reports: 

IMPROPER LIBRARY REFERENCE 
means that an attempt was 
made to drop a workspace 
stored by another user. 

WS NOT FOUND 

means that there is no 

stored workspace with the 

identification used in the 

command. 

INCORRECT COMMAND 
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INQUIRY COMMANDS 

Most of the commands in this class concern the state of 
the active workspace. Of the others, one command lists the 
names of workspaces in libraries, and two commands are 
useful for locating another user at a connected terminal, in 
order to communicate with him. 

Hsgr cedes. The communication commands described in the 
next section require that the port number of the person to 
be addressed be known. The inquiry commands that provide 
this information operate through the device of user codes, 
which serve within the system as partial identification of 
users. (The user account numbers, which completely identify 
users within the system, are not used for this purpose, and 
are treated as private information.) A user code comprises 
the first three characters of his name, as it appears in the 
sign-on response (Part 1, EC3, Response 2). 

A user code is considered to be only partial 
identification because it may not be unique. Therefore, 
these commands should be used advisedly: before addressing 
substantive messages to a terminal which has been identified 
by a user code, further confirmation of the receiver's 
identity should be sought. 



Sgtailed description. 

ACTION 

3Qii List names of defined 

functions : 

Enter ~)FNS 

followed by an alphabetic 

character, if desired. 

Effect: None. 



NOTES 



Re soon se : 

1. The names of defined 
functions in the active 
workspace will be printed 
alphabetically, starting 
with the specified letter. 
If a letter was not used, 
all function names will be 
listed. 



Trouble message: 

INCORRECT COMMAND 
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IQ2j. List names sf SlQbal 

Enter )VARS 

followed by an alphabetic 

character, if desired. 

Effect; None. 

Response : 

1. The names of global 
variables in the active 
workspace will be printed 
alphabetically , starting 
with the specified letter. 
If a letter was not used, 
all names of global 
variables will be listed. 



Trouble message: 

INCORRECT COMMAND 



IQ4i List memb.§r§hii! Qf 

designated group: 

Enter 755? 

followed by the name of the 

group. 

Effect: None. 



Response: 

1. The names in 

will be printed. 



the group 



There will be no response if 
there is no group with the 
designated name in the 
active workspace. 

Trouble message: 

INCORRECT COMMAND 



IQ3* iiSt Bases Qf groups: 
Enter )GRPS 

followed by an alphabetic 
character, if desired. 

Effect! None. 

BfiSBfiSSg: 

1. The names of groups in 
the active, workspace will be 
printed alphabetically, 
starting with the letter 
used. If a letter was not 
used, all group names will 
be listed. 



Trouble message: 

INCORRECT COMMAND 



IQ5* List halted functions: 
Enter )SI 



Effect: None. 

Response: 

1. The names of halted 
functions will be listed, 
most recent ones first. 
With each name will be given 
the line number on which 
execution stopped. Suspend- 
ed functions will be 
distinguished from pendent 
functions by an asterisk. 



The line numbers on which 
halted functions have 
stopped are available for 
dynamic use through the 
system-dependent functions 
12 6 and 12 7. (See Part 3.) 



This display is the state 
indicatfif; its significance 
and use is explained in Part 
3. 

Trouble message: 
INCORRECT COMMAND 
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!£)£.. List baited f unstiQQ§ 
srisb sarngs pf less! 

variables : 
Enter )SIV 



Effect : None . 



Response: 

1. The response will be the 
same as for IQ5, except that 
with each function listed 
there will appear a listing 
of its local variables. 



Trouble message: 

INCORRECT COMMAND 



IQLl Siyg identification pf. 
actiye workspace: 
Enter )WSID 



Effect: None. 

Response: 

1. The identification of the 
active workspace will be 
printed. The library number 
will be included only if it 
differs from the account 
number associated with the 
terminal. 



TrQubls mgssage: 

INCORRECT COMMAND 



IQJL. List names Sf Stared 

wQiisspacgs : 

Enter )LIB 

followed, if necessary, by a 

library number. 



A library number is not 
required for listings of the 
user's private library. 



Effect: None. 



Response: 

1. The names of workspaces 
in the designated library 
will be printed. If no 
number was used, the account 
number associated with the 
terminal will be taken as 
the library number. 



lEQSklS messages: 
IMPROVER LIBRARY REFERENCE 
means that an attempt was 
made to obtain a listing of 
another user's private 
library, or of a 
non-existent library. 

INCORRECT COMMAND 



IQ2j. List EQEtS in uge and 
cades of connected users: 
Enter ) PORTS 



Effect: None. 



Response: 

1. Port numbers in use will 
be printed with the 
associated user code. 



Trouble message: 

INCORRECT COMMAND 



IQlfli List EQEt numbers 

as.§g.ciated with. design 

Datgd user SQdg: 

Enter ) PORTS 

followed by the user code. 

Effect: None. 

Response: 

1. The port numbers of 
connected users identified 
by the code will be printed. 



User codes are not 
necessarily unique, and the 
information derived from 
this command and IQ9 should 
be used advisedly. 



Scalable message: 

INCORRECT COMMAND 



COMMUNICATION COMMANDS 

There are two pairs of commands in this class. One 
pair addresses any connected terminal, and one pair 
addresses only the system recording terminal. 

A message can be received by a terminal only when its 
keyboard is locked, and except for public address 
announcements from the system recording terminal, only if it 
is also not in the process of function execution. Hence, to 
facilitate two-way communication, one of each pair of 
communication commands results in locking the keyboard of 
the sending terminal, pending the receipt of a reply. A 
keyboard so locked can be unlocked by an attention signal. 

Incoming messages from the system recording terminal 
are prefixed by OPR : , and public address messages are 
prefixed by PAl : . 
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If the interaction at a terminal must be interrupted 
for a prolonged period while the terminal is still 
connected, it is good practice to lock the keyboard so that 
a message may be received. This can be done by addressing a 
message of the proper type to the terminal's own port 
number. 

Sgtailgd description. The length of a message is restricted 
to a single line, not exceeding 120 characters in length. 
However, messages are not subject to the width settings of 
either the sending or receiving terminal. 



AfiTJON 



£Mi.» Address 
nated pari: 
Enter )MSGN 
followed by 



text to desigr 



a port number 



and any one-line text. 



NOTES 

A message addressed to an 
unused or non-existent port 
will be reflected back to 
the sending terminal, which 
then plays the role of both 
sender and receiver. 



lff§S£ s 

1. The keyboard will lock 
while the text is being 
transmitted. 

2. The text will be printed 
at the receiving terminal, 
prefixed by the port number 
of the sending terminal. 



3. The keyboard will unlock 
when the transmission is 
completed, 

ESSBQSSS: 
1. SENT 



Trouble message : 
MESSAGE LOST 

means just that. It happens 
when attention is signalled 
before a message is 
delivered, or an equivalent 
transmission disturbance 
occurs . 



INCORRECT COMMAND 
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£M2i Address text to desigr 

Qated port and lgck k§y- 

board : 

Enter )MSG 

followed by a port number 

and any one-line text. 

B f f ect : 

1. Same as CM1 effect 1. 

2. Same as CM1, Effect 2, 
except for a prefix R, to 
indicate that a reply is 
awaited. 



See note at CM1. 



3. The keyboard will remain 
locked after the response is 
printed. 



Response: 
1. SENT 



The keyboard can be 
unlocked, before receiving a 
reply, by means of an 
attention signal. 

Trouble message: 
MESSAGE LOST 
See CM1. 



INCORRECT COMMAND 



£M3_* Address text £a System 

resfiEding Sgrjaiinal: 

Enter )0PRN 

followed by any one- line 

text. 



See note at CM1. 



Sffesfc: 

1. 2. and 3. Same as CM1. 



Response : 

1. SENT 



ISSUfele message: 

MESSAGE LOST 
See CM1. 



INCORRECT COMMAND 
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QM4i M3£g§g text tQ system 

regarding terminal and lack 

ke^aaard: 

Enter )OPR 

followed by any one-line 

text. 



See note at CM1. 



Effect: 

1. 2. and 3. 



Same as CM2. 



PART 3 



THE LANGUAGE 



The APL\ 360 Terminal System executes system commands or 
mathematical statements entered on a terminal typewriter. 
The system commands were treated in Part 2; the mathematical 
statements will be treated here. 



Be.SBCO.se: 
1. SENT 



lESUele messages 

MESSAGE LOST 
See CM1. 

INCORRECT COMMAND 



Acceptable statements may employ either .primitive 
JjffiStifias (e.g. + - x i ) which are provided by the system, 
or defined S&BSi-X&MSi which the user provides by entering 
their definitions on the terminal. 

If system commands are not used, the worst that can 
possibly result from erroneous use of the keyboard is the 
printing of an ' SXXSX Jjspoxt. It is therefore advantageous 
to experiment freely and to use the system itself for 
settling any doubts about its behavior. For example, to 
find what happens in an attemped division by zero, simply 
enter the expression 4*0. if ever the system seems 
unusually slow to respond, execute an attention signal to 
interrupt execution and unlock the keyboard. 

The Sample Terminal Session of Appendix A shows actual 
intercourse with the system which may be used as a model in 
gaining facility with the terminal. The examples follow the 
text and may well be studied concurrently. More advanced 
programming examples appear in Appendix B. 

The primitive functions and the defined functions 
available in libraries can be used without knowledge of the 
means of defining functions. These means are treated in the 
four contiguous sections beginning with Defined Functions 
and ending with Homonyms. These sections may be skipped 
without loss of continuity. 

FUNDAMENTALS 

Statements. Statements are of two main types, the .branch 
(denoted by -»■ and treated in the section on Defined 
Functions), and the SBSSH ication . A typical specification 
statement is of the form 

This statement assigns to the yariabie X the value resulting 
from the expression to the right of the .specifi.cat.ion .arrow. 
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If the variable name and arrow are omitted, the resulting 
value is printed. For example: 



3x4 



12 



Results typed by the system begin at the left margin 
whereas entries from the keyboard are automatically 
indented. The keyboard arrangement is shown in Figure 1.2. 

Scalar and yec±Qr constants. All numbers entered via the 
keyboard or typed out by the system are in decimal, either 
in conventional form (including a decimal point if 
appropriate) or in exponential form. The exponential form 
consists of an integer or decimal fraction followed 
immediately by the symbol E followed immediately by an 
integer. The integer following the E specifies the power of 
ten by which the part preceding the E is to be multiplied. 
Thus 1.4452 is equivalent to 144. 

Negative numbers are represented by_ a negative sign 
immediately preceding the number, e.g., 1.44 and ~144B"2 
are equivalent negative numbers. The negative sign can be 
used only as part of a constant and is to be distinguished 
from the negation function which is denoted, as usual, by 
the minus sign -. 

A constant vector is entered by typing the constant 
components in order, separated by one or more spaces. A 
character constant is entered by typing the character 
between quotation marks , and a sequence of characters 
entered in quotes represents a vector whose successive 
components are the characters themselves. Such a vector is 
printed by. the system as the sequence of characters, with no 
enclosing quotes and with no separation of the successive 
elements. The quote character itself must be typed in as a 
pair of quotes. Thus, the abbreviation of CANNOT is 
entered as 'CAN"T' and prints as CAN'T. 

Maoes and Sp.as.ss. As noted in Part 2, the name of a 
variable or defined function may be any sequence of letters 
or digits beginning with a letter and not containing a 
space. A letter may be any of the characters A to Z, or any 
one of these characters underscored, e.g., A or B. 

Spaces are not required between primitive functions and 
constants or variables, or between a succession of primitive 
functions, but they may be used if desired. Spaces are 
needed to separate names of adjacent defined functions, 
constants, and variables. For example, the expression 3+4 
may be entered with no spaces, but if F is. a defined 
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function, then the expression 3 F 4 must be entered with the 
indicated spaces. The exact number of spaces used in 
succession is of no importance and extra spaces may be used 
freely . 

QYetatcikiag and. exasure. Backspacing serves only to 
position the carriage and does not cause erasure or deletion 
of characters. It can be used: 

1. to insert missing characters (such as parentheses) 
if space has previously been left for them, 

2. to form compound characters by overstriking (e.g. 
<t> and ! ) , and 

3. to position the carriage for erasure, which is 
effected by striking the Linefeed (marked ATTN on IBM 
2741 terminals) . The linefeed has the effect of 
erasing the character at the position of the carriage, 
and all characters to the right. 

S&4 Qf_ Statement. The end of a statement is indicated by 
striking the carriage return (followed, on some terminals, 
by an explicit transmission signal as described in Part 1). 
The typed entry is then interpreted exactly as it appears on 
the page, regardless of the time sequence in which the 
characters were typed. 

■Prder o£ execution. In a compound expression such as 
3x4+6*2, the functions are executed (evaluated) from 
rightmost to leftmost, regardless of the particular 
functions appearing in the expression. (The foregoing 
expression evaluates to 21.) when parentheses are used, as 
in the expression W*-(UQ)iXxY-z , the same rule applies, but, 
as usual, an enclosed expression must be completely 
evaluated before its results can be used. Thus, the 
foregoing expression is equivalent to W+( 3[Q )i(Xx(y-z) ) . 

In general, the rule can be expressed as follows: every 
function takes as its righthand argument the entire 
expression to its right, up to the right parenthesis of the 
pair that encloses it. 

Error reports. The attempt to execute an invalid statement 
will cause one of the error reports of Table 3.1 to be typed 
out. The error report will be followed by the offending 
statement with a caret typed under the point in the 
statement where the error was detected. If the caret lies 
to the right of a specification arrow, the specification has 
not yet been performed. 
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TYPE 



Cause; CORRECTIVE ACTION 



CHARACTER 
DEPTH 

DOMAIN 
DEFN 



INDEX 
LABEL 

LENGTH 

RANK 

RESEND 

SYNTAX 



SYMBOL 

TABLE 

FULL 

SYSTEM 



VALUE 



WS FULL 



Illegitimate overstrike. 

Excessive depth of function execution . CLEAR STATE 
INDICATOR. 

Arguments not in the domain of the function. 

Misuse of V or symbols: 

1. V is in some position other than the first. 

2. The function is pendent. DISPLAY STATE 
INDICATOR AND CLEAR AS REQUIRED. 

3. Use of other than the function name alone in 
reopening a definition. 

4. Improper request for a line edit or display. 

Index value out of range. 

Name of already defined function used as a label, 
or colon used other than in function definition 
and between label and statement. 

Shapes not conformable. 

Ranks not conformable. 

Transmission failure. RE-ENTER. IF CHRONIC, 
REDIAL OR HAVE TERMINAL OR PHONE REPAIRED. 



Invalid syntax; e.g. 



two variables juxtaposed; 



function used without appropriate arguments as 
dictated by its header; unmatched parentheses. 

Too many names used. ERASE SOME FUNCTIONS 
OR VARIABLES, THEN SAVE, CLEAR, AND COPY. 



Fault in internal operation of APL\ 360. RELOAD 

OR SAVE, CLEAR, AND COPY. SEND TYPED RECORD, 

INCLUDING ALL WORK LEADING TO THE ERROR, TO THE 
SYSTEM MANAGER. 

Use of name which has not been assigned a value. 
ASSIGN A VALUE TO THE VARIABLE, OR DEFINE THE 
FUNCTION. 

Workspace is filled (perhaps by temporary values 
produced in evaluating a compound expression) . 
CLEAR STATE INDICATOR, ERASE NEEDLESS OBJECTS, OR 
REVISE CALCULATIONS TO USE LESS SPACE. 



Table 3.1 ERROR REPORTS 
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If an invalid Statement is encountered during execution 
of a defined function, the error report includes the 
function name and the line number of the invalid statement. 
The recommended procedure at this point is to enter a right 
arrow (->■) alone, and then retry with an amended statement. 
The matter is treated more fully in the section on Suspended 
Function Execution. 

Names of primitive functions. The primitive functions of 
the ..language are summarized in Tables 3.2 and 3.8, and will 
be discussed individually in subsequent sections. The tables 
show one suggested name for each function. This is not 
intended to discourage the common mathematical practice of 
vocalizing a function in a variety of ways (for example, 
XiY may be expressed as "X divided by Y" , or "X over Y") . 
Thus, the expression pM yields the dimgnsiQD of the array M, 
but the terms siss or shape may be preferred both for their 
brevity and for the fact that they avoid potential confusion 
with the dimensionality or rank of the array. 

The importance of such names and synonyms diminishes 
with familiarity. The usual tendency is toward the use of 
the name of the symbol itself (e.g., "rho" (p ) for "size", 
and "iota" (i) for "index generator") , probably to avoid 
unwanted connotations of any of the chosen names. 

SCALAR FUNCTIONS 

Each of the primitive functions is classified as either 
scalar or mixed. Scalar functions are defined on scalar 
(i.e., individual) arguments and are extended to arrays in 
four ways: element- by-element, reduction, inner product, and 
outer product, as described in the section on Functions On 
Arrays. Mixed functions are discussed in a later section. 

The scalar functions are summarized in Table 3.2. Each 
is defined on real numbers or, as in the case of the logical 
functions and and or, on some subset of them. No functional 
distinction is made between "fixed point" and "floating 
point" numbers, this being primarily a matter of the 
representation in a particular medium, and the user of the 
terminal system need have no concern with such questions 
unless his work strains the capacity of the machine with 
respect to either space or accuracy. 

Three different representations for numbers are used 
internally, and transformations among them are carried out 
automatically. Integers less than 2 to the power 52 are 
carried, with full. precis ion; "larger numbers and non- integers 
aire carried to a precision of about 16 decimal digits. 



f-e 



Monadic form fB 



Definition 
or example 



+B -«--»• 0+B 

->B +■+ 0-B 

xB «--► (B>0)-(B<0) 

vB «--► IvB 



B 



3. 14 
"3.14 



TB 



4 
"3 



LB 



3 

"4 



*B «--► (2.71828. . )*B 



3.14 



3.14 



Name 



:o -*--»■ l 

IB +-»• B x '. B - 1 



or 

?B 



!B 



■*-»■ Gamma(B + l) 

Random choice 
from iB 



OB •«-■* Bx3. 14159. . 
~1 «--* ~0 •*-*■! 



Plus 

Negative 

Signum 

Reciprocal 

Ceiling 

Floor 

Exponential 

Natural 
logarithm 

Magnitude 



Factorial 

Roll 

Pi times 
Not 



( -A )oB 


A 


4oB 


(1-B*2)*„5 





( 1-B*2 )*. 5 


Arcsin B 


1 


Sine B 


Arccos B 


2 


Cosine B 


Arctan B 


3 


Tangent B 


(~1+B*2 )*. 5 


4 


(1+B*2 )*. 5 


Arcsinh B 


5 


Sinh B 


Arc cosh B 


6 


Cosh B 


Arctanh B 


7 


Tanh B 



Table of Dyadic o Functions 



Dyadic form AfB 



A 
V 
ft 



< 
< 

> 

> 



Name 



Plus 

Minus 

Times 

Divide 

Maximum 

Minimum 

Power 

Logarithm 

Residue 



Binomial 
coefficient 



Deal 
Circular 



Definition 
or example 



2+3. 2 "«--»• 5.2 
2-3.2 «--»■ "1.2 
2x3.2 •*--> 6.4 
24-3.2 -*--»■ 0.625 
3T7 +--»• 7 
3L7 +-* 3 
2*3 •*-->• 8 



>1©B 
4®B 



Case 



Log B base A 
(®B)t&A 

A \B 



A*Q 

A=0,B>0 
A=0 ,B<0 



B-( \A)*LBi\A 

B 

Domain error 



And 
Or 
Nand 
Nor 



Less 

Not greater 

Equal 

Not less 

Greater 

Not Equal 



A\B ++ (\B)i(lA)x\B-A 
2 ! 5 -*--*• 1 3 ! 5 «--»■ 1 



A Mixed Function (See 
Table 3.8) 

See Table at left 



A 


B 


A*B 


AvB 


A*B 


A*B 














1 


1 





1 





1 


1 





1 








1 


1 





1 


1 


1 


1 








Relations 


Result is 1 if th 


relation holds, 


if it does not: 


3<7 +■+ 1 






7<3 


■+--»■ 


D 





Table 3.2: PRIMITIVE SCALAR FUNCTIONS 
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For operations such as floor and ceiling, and in 
comparisons, a "fuzz" of about IE 13 is applied in order to 
avoid anomalous results that might otherwise be engendered 
by doing decimal arithmetic on a binary machine. 

Two of the functions of Table 3.2, the relations * and 
=, are defined on characters as well as on numbers. 

{jQQadiS aafi siy.ad.iC functions. Each of the functions defined 
in Table 3.2 may be used in the same manner as the familiar 
arithmetic functions + - * and *, Most of the symbols 
employed may denote either a monadic function {which takes 
one argument) or a fiyadic function (which takes two 
arguments) . For example, TY denotes the monadic function 
ceiling, applied to the single argument Y, and X\ Y denotes 
the dyadic function maximum, applied to the two arguments X 
and y. Any such symbol always denotes a dyadic function if 
possible, i.e., it will take a left argument if one is 
present. 

At this point it may be helpful to scrutinize each of 
the functions of Table 3.2 and to work put some examples of 
each, either by hand or on a terminal. However, it is not 
essential to grasp all of the more advanced mathematical 
functions (such as the hyperbolic functions sinh, cosh, and 
tanh, or the extension of the factorial to non- integer 
arguments) in order to proceed. Treatments of these 
functions are readily available in standard texts. 

Certain of the scalar functions deserve brief comment. 
The residue function A\B has the usual definition of residue 
used in number theory. For positive integer arguments this 
is equivalent to the remainder obtained on dividing B by A , 
and may be stated more generally as the smallest 
non-negative member of the set B-NxA, where N is any 
integer. 

This formulation covers the case of a zero left 
argument as shown in Table 3.2, The conventional definition 
is extended in two further respects: 

1. The left argument A need not be positive; however, 
the value of the result depends only on the magnitude 
of A. 



2. The arguments need not be integral. 
l|2.6 is 0.6 and 1 . 5 1 8 is 0.5. 



For example, 



The expression ~8*.5 (square root of ~8) yields a 
domain error, but ~8*l*3 has the value 2. More generally, 
A*B is valid for 4<o if the right argument is (a close 
approximation to) a rational number with an odd denominator 
not greater than 85, 
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The factorial function : N is defined in the usual way 
as the product of the first N positive integers. It is also 
extended to non-integer values of the argument It and is 
equivalent to the Gamma function of ff+l. 

The function AlB (pronounced A out of B) is defined as 
( !B)*( !A)x'.B-A. For integer values of A and B, this is the 
number of combinations of B things taken A at a time. (It 
is related to the Complete Beta function as follows: 

Beta(p.e) ■<-->• *e>c(p-i)!P+e-i. j 

The symbols < < = > > and * denote the relations 
less than, lgss than sr egual, etc., in the usual manner. 
However, an expression of the form A<B is treated not as an 
assertion, but as a function which yields a 1 if the 
proposition is true, and if it is false. For example: 



3S7 
7<3 



When applied to logical arguments (i.e., arguments 
whose values are limited to and 1) ,- the six relations are 
equivalent to six of the logical functions of two arguments. 
For example, s is equivalent to material implication, and * 
is equivalent to exclusiye-gr. These six functions together 
with the and, or, nana, and nor shown in Table 3.2 exhaust 
the nontrivial logical functions of two logical arguments. 

Vectors. Each of the monadic functions of Table 3.2 applies 
to a vector, element by element. Each of the dyadic 
functions applies element by element to a pair of vectors of 
equal dimension or to one scalar and a vector of any 
dimension, the scalar being used with each component of the 
vector. For example: 

1 2 3 4x4 '3 2 1 
4 6 6 4 

2tl 2 3 4 
3 4 5 6 

12 3 4T2 
2 2 3 4 

Index generator. If N is a non-negative integer, then iff 
denotes a vector of the first N integers. The dimension of 
the vector ifl is therefore Nj in particular, i 1 is a vector 
of length one which has the value 1, and iO is a vector of 
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dimension zero, also called an empty, vector. The empty 
vector prints as a blank. For example: 



i4 

3 4 
i5 

3 4 
lO 

6-i6 
3 2 
2xi0 



Empty vector prints as a blank 



2x!6 

6 8 10 12 



Scalar applies to all (i.e., 0) elements 
of iO, resulting in an empty vector 



The index generator is one of the class of mixed 
functions to be treated in detail later; it is included here 
because it is useful in examples. 

DEFINED FUNCTIONS 

introduction. It would be impracticable and confusing to 
attempt to include as primitives in a language all of the 
functions which might prove useful in diverse areas of 
application. On the other hand, in any particular 
application there are many functions of general utility 
whose use should be made as convenient as possible. This 
need is met by the ability to define and name new functions, 
which can then be used with the convenience of primitives. 

This section introduces the basic notions of function 
definition and illustrates the use of defined functions. 
Most of the detailed mechanics of function definition, 
revision, and display, are deferred to the succeeding 
section. 

The sequence 

VSPHERE 
[1] StfifFt-4x3.14159x.ffxi? 

[2] VOL+SURFxRiZ 
[3] V 

is called a fjunotion definition; the first v (pronounced 
del) marks the beginning of the definition and the second v 
marks the conclusion: the name following the first v (in 
this case SPHERE) is the name of the function defined, the 
numbers in brackets are s_tate.ment nu.mb_e.Es_, and the 
accompanying statements form the b.o_dv_ of the function 
definition. 
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The act of defining a function neither executes nor 
checks for validity the statements in the body; what it does 
is make the function name thereafter equivalent to the body. 
For example: 



m 

[2] 
[3] 



VSPHERE 

SURF -<-4x3. 14 

VOL+SURFxRi 

V 

R*-2. 

R 



1 59xi?xi? 
3 



SURF 
VALUE ERROR 
SURF 



Definition of the 
function SPHERE 



Specification and display 
of the argument if 

SURF has not been 
assigned a value 



SPHERE 

SURF 
50. 26544 

VOL 
33. 51029333 

iN-1 

SPHERE 

SURF 
12.56636 

VOL 
4.188786667 



Execution of SPHERE 
SURF and VOL now have 
values assigned by the 
execution oi-SPHERE 

Use of SPHERE for 
a new value of the 
argument if 



Breaching. Statements in a function are normally executed 
in the order indicated by the statement numbers, and 
execution terminates at the end of the last statement in the 
sequence. This normal order can be modified by branches. 
Branches make possible the construction of iterative 
procedures. 

The expression +4 denotes a branch to statement 4 and 
causes statement 4 of the function to be executed next. In 
general, the arrow may be followed by any expression which, 
to be effective, must evaluate to an integer. This value is 
the number of the statement to be executed next. If the 
integer lies outside the range of statement numbers of the 
body of the function, the branch ends the execution of the 
function. 

If the value of the expression to the right of a branch 
arrow is a non-empty vector, the branch is determined by its 
first component. if the vector is empty (i.e., of zero 
dimension) the branch is vacuous and the normal sequence is 
followed. 
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The following examples illustrate various methods of 
branching used in three equivalent functions (SUM, SUM1 , and 
SUM2) for determining 5 as the sum of the first N integers: 



Branch to h*l (i.e. , 4) or to 4xo (out) 
Unconditional branch to 3 





VSUM 


[1] 


S<-0 


[2] 


1+1 


C3] 


■*HxISN 


m 


S+S+I 


C5] 


I+I+l 


C6] 


+3 


[7] 


7 




ff+1 




SUM 




S 


1 






ff+2 




SUM 




S 


3 






W+5 




SUM 




S 


15 






VSUM1 


CI] 


S+0 


[2] 


T+l 


[3] 


■+0x\I>N 


[<0 


S+S+J 


E53 


J+I+l 


C6] 


+3 


E7] 


V 




ff+5 




SUM1 




S 


15 






VSUM2 


CI] 


S+0 


[2] 


Z-«-0 


[3] 


S+S+I 


[*] 


J+J+l 


[5] 


+3xilsit 


C6] 


7 



Equivalent to SUM 



Branch to (out) or continue to next 
line since 0xi6 is an empty vector 

Unconditional branch to 3 



Equivalent to SUM 



Branch to 3 or fall through (and out) 



Prom the last two functions in the foregoing example, 
it should be clear that the expression x\ occurring in a 
branch may often be read as "if". For example, -+3x\izn may 
be read as "Branch to 3 if I is less than or equal to N." 



74 



i°cal and global variables. A variable is normally global 
in the sense that its name has the same significance ho 
matter what function or functions it may be used in. 
However, the iteration counter I occurring in the foregoing 
function SUM is of interest only during execution 6f the 
function; it is frequently convenient to make such a 
variable local to a fusctjon in the sense that it has 
meaning only during the execution of the function and bears 
no relation to any object referred to by the same name at 
other times. Any number of variables can be made local to a 
function, by appending each (preceded by a semicolon) to the 
function header. Compare the following behavior of the 
function SUMS , which has a local variable I, with the 
behavior of the function SUM2 in which I is global: 



lSUMZ-,1 



VSUM2 



[1] 
C2] 
[3] 

[5] 
[6] 



15 



S+0 

1+0 

S*-S+I 

I+J+l 

+3x\I<tf 

V 

1+2 

ff+5 

SUM3 

S 



[1] 
[2] 
[3] 
U] 
[53 
[6] 



15 



S+0 

-T+0 

S+S+ 1 

It-It 1 

■*3x\l£lf 

V 

1+20 

ff+5 

SUM2 

S 



20 6 

Since I is local to the function SUMS, execution of SUM3 has 
no effect on the variable I referred to before and after the 
use of SUM3. 

However, if the variable K is local to a function F 
then any function G used within F may refer to the same 
variable K, unless the name K is further localized by being 
made local to G. For further treatment of this matter, see 
the section on Homonyms . 



75 



ExE-iisiS §E9fflB§Si» A function definition of the form 

VSPH X 
[1] S£/if-(-tx3.14159xXxX 
[2] V 

defines SPH as a function with an explicit argument; 
whenever such a function is used it must be provided with an 
argument. For example: 

SPH 2 

SVR 
50.265^4 

SPH 1 

SUR 
12.56636 

Any explicit argument of a function is automatically 
made local to the function; if E is any expression, then the 
effect of SPB E is to assign to the local variable X the 
value of the expression E and then execute the body of the 
function SPH. Except for having a value assigned initially, 
the argument variable is treated as any other local variable 
and, in particular, may be respecified within the function. 

Explicit result. Each of the primitive functions produces a 
result and may therefore appear within compound expressions. 
For example, the expression *Z produces an explicit result 
and may therefore appear in a compound expression such as 
X+*Z. A function definition of the form 



vz<-SP X 

[1] Z-*-tx3.1lH59xXxAT 
[2] V 



the 

the 

function is the 



defines SP as a function with an explicit result; 
variable Z is local, and the value it assumes at 
completion of execution of the body of the 
explicit result of the function. For example: 

Q+-3xSP 1 



37. 69908 

R+2 

(SP R)xRi3 
33.51029333 
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The forms of defined functions. Functions may be defined 
with 2,1, or explicit arguments and either with or without 
an explicit result. The form of header used to define each 
of these six types is shown in Table 3.3. Each of the six 
forms permits the appending of semicolons and names to 
introduce local variables. The names appearing in any one 



header must all 
invalid. 



be distinct; e.g. 



the header Z*-F Z is 



Number of 
Arguments 



Number of Results 

o 1 



VF 

vf y 

VX F I 



VZ+F 

vz-rF y 

VZ+X F 



Table 3.3: FORMS OF DEFINED 
FUNCTIONS 



It is not obligatory either for the arguments of a 
defined function to be used within the body, or for the 
result variable to be specified. A function definition 
which does not assign a value to the result variable will 
engender a yalue grxex report when it is used within a 
compound expression. This behavior permits a function to be 
defined with a restricted domain, by testing the argument (s) 
and branching out in certain cases without specifying a 
result. For example: 

VZ+SQRT X 
[1] +0xiiT<0 
[2] Z<-X*.5V 

Q+SQRT 16 



Q+SQRT 16 
VALUE ERROR 

Q+SQRT "16 
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Use of defined functions. A defined function may be used in 
the same ways that a primitive function may. In particular, 
it may be used within the definition of another function. 
For example, the function HYP determines the hypotenuse of a 
right triangle of sides A and B by using the square root 
function SQRTt 



111 



VZ+SQRT X 
Z-*-X*.5V 



CI] 



VH+-A HYP B 
H+SQRT U*2)+B*2V 



13 



5 HYP 12 



A defined function must be used with the same number of 
arguments as appear in its header. 

Recursive function de£initisn x A function F may be used in 
the body of its own definition, in which case the function 
is said to be recurgiygly, defined. The following program 
FAC shows a recursive definition of the factorial function. 
The heart of the definition is statement 2, which determines 
factorial N as the product of 1) and FAC iP-l, except for the 
case ff=0 when it is determined (by statement 4) as 1: 



[1] 
[2] 
[3] 
[4] 



vz+fac m 

Z+NxFAC ff-1 
Z«-1V 



Trace cgn£rgl. A trace, is an automatic type-out of 
information generated by the execution of a function as it 
progresses. In a complete trace of a function F, the number 
of each statement executed is typed out in brackets, 
preceded by the function name P and followed by the final 
value produced by the statement. The trace is useful in 
analyzing the behavior of a defined function, particularly 
during its design. 

The tracing of ? is controlled by the £r.aee vector, for 
P, denoted by TAP. If one types J'AP-f-2 3 5 then statements 
2, 3, and 5 will be traced in any subsequent execution of P. 
More generally, the value assigned to the trace vector may 
be any vector of integers. Typing TAP+-0 will discontinue 
tracing of P. A complete trace of P is set up by entering 
ThP*-\N, where S is the number of statements in P. 
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MECHANICS OF FUNCTION DEFINITION 

When a function definition is opened (by typing a v 
followed by a header) , the system automatically types 
successive statement numbers enclosed in brackets and 
accepts successive entries as the statements forming the 
body of the definition. The system is therefore said to be 
in dsfiJXJLfeiflB mode, as opposed to the execution mode which 
prevails outside of function definition. 

There are several devices which may be used during 
function definition to revise and display the function being 
defined. After function definition has been closed, there 
are convenient ways to re-open the definition so that these 
same devices may be used for further revision or display. 

LS-bslS- If a statement occurring in the body of a function 
definition is prefaced by a name and a colon, then at the 
end of the definition the name is assigned a value equal to 
the statement number. A variable specified in this way is 
called a label. Labels are used to advantage in branches 
when it is expected that a function definition may be 
changed for one reason or another, since a label 
automatically assumes the new value of the statement number 
of its associated statement as statements are inserted or 
deleted. 



Revision. Any statement number (including one typed by the 
system) can be overridden by typing CN3 , where N is any 
positive number less than 10000, with or without a decimal 
point and with at most four digits to the right of the 
decimal point. If N is zero, it refers to the header line 
of the function. 

If any statement number is repeated, the statement 
following it supersedes the earlier specification of the 
statement. If any statement is empty — that is, the 
bracketed statement number was immediately followed by both 
a linefeed and a carriage return (a carriage return alone is 
vacuous) — it is deleted. 

When the function definition mode is ended, the 
statements are reordered according to their statement 
numbers and the statement numbers are replaced by the 
integers 1,2,3, and so on. Labels are assigned appropriate 
values. 



The particular statement on which the closing v appears 
is not significant, since it marks only the end of the 
definition mode, not necessarily the last line of the 
function. Moreover, the closing v may be entered either 
alone or at the end of a statement. 

DiSBlSX* During function definition, statement N can be 
displayed by overriding the line number with END]. After 
the display, the system awaits replacement of statement N. 
Typing CD] displays the entire function, including the 
header and the opening and closing V, and awaits entry of 
the next statement; typing CDN] displays all statements from 
N onward and awaits replacement of the last statement. 
Executing an attention signal will stop any display. 

Lia§ editing. During function definition, statement N can 
be modified by the following mechanism: 

1. Type INDMT where M is an integer. 

2. Statement N is automatically displayed and the 
carriage stops under position M. 

3. A letter or decimal digit or the symbol / may be 
typed under any of the positions in the displayed 
statement. Any other characters typed in this mode 
are ignored. The ordinary rules for backspace and 
linefeed apply. 

4. When the carriage is returned, statement N is 
re-displayed. Each character understruck by a /is 
deleted, each character understruck by a digit K is 
preceded by K added spaces, and each character 
understruck by a letter is preceded by 5xi? spaces, 
where if is the rank of the letter in the alphabet. 
Finally, the carriage moves to the first injected 
space and awaits the typing of modifications to the 
statement in the usual manner. The final effect is to 
define the statement exactly as if the entry had been 
made entirely from the keyboard; in particular, a 
completely blank sequence leaves the statement 
unchanged . 

If the statement number itself is changed during the 
editing procedure, the statement affected is determined by 
the new statement number; hence statement N remains 
unchanged. This permits statements to be moved, with or 
without modification. 
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Reopening function de JJ. ni±i on . If a function R is already 
defined, the definition mode for that function can be 
re-established by entering VR alone; the rest of the 
function header must not be entered. The system responds by 
typing [ff+1] , where N is the number of statements in R . 
Function definition then proceeds in the normal manner. 

Function definition may also be established with 
editing or display requested on the same line. For example, 
VRi3lX*-X+l initiates editing by entering a new line 3 
immediately. The system responds by typing [4] and awaiting 
continuation. The entire process may be accomplished on a 
single line. Thus, V.R[3]X-<-X+lV opens the definition of R , 
enters a new line 3, and terminates the definition mode. 
Also, Vfl[D]V causes the entire definition of R to be 
displayed, after which the system returns to execution mode. 

Similar expressions involving display are also 
permissible, for example, Vff[Q3]V or VRCD] or V#[ 20103. 

£S£ked Junctions. If the symbol » (formed by a V over struck 
with a ~ and called del-tilde) is used instead of V to open 
or close a function definition, the function becomes lacked. 
A locked function cannot be revised or displayed in any way. 
Moreover, an error stop within the function will print only 
the function name and statement number, not the statement. 
Finally, the associated stop control (see next section) and 
trace control vectors cannot be changed after the function 
is locked. 

Locked functions are used to keep a function definition 
proprietary. For example, in an exercise in which a student 
is required to determine the behavior of a function by using 
it for a variety of arguments, locking a function prevents 
him from displaying its definition. 

DslStXQB q£ £uncj;igns sad variables. A function F (whether 
locked or not) is deleted by the command )ERASB F (see Table 
2.1). It may also be deleted by deleting every one of its 
statements. A variable may be deleted only by the erase 
command. 



System command entered dnrinsr function definition. A system 
command entered during function definition will not be 
accepted as a statement in the definition. Some commands, 
such as )C0PY , will be rejected with the message- 
NOT WITH OPEN DEFINITION (see Table 2.1); most will be 
executed immediately. 



SUSPENDED FUNCTION EXECUTION 

SJASpe&SiSQ. The execution of a function F may be stopped 
before completion in a variety of ways: by an error report, 
by an attention signal, or by the stop control vector SbF 
treated below. In any case, the function is still active 
and its execution can later be resumed. In this state the 
function is said to be suspended. Typing -+K will cause 
execution of the suspended function to be resumed, beginning 
with statement K. 

Whatever the reason for suspension, the statement or 
statement number displayed is the next one to have been 
executed. A branch to that statement number will cause 
normal continuation of the function execution, and a branch 
out (->-0) will terminate execution of the function. 



The function r26 (described in the section on System 
Dependent Functions) yields the number of the statement next 
to be executed. Hence the expression -»-x2 6 provides a safe 
and convenient way to cause normal resumption of execution. 

In the suspended state all normal activities are 
possible. In particular, the system is in a condition to: 

1. execute statements or system commands. 

2. resume execution of the function at an arbitrary 
point N (by entering -*N) . 

3* reopen the definition of any function which is not 
pgsSs&t. The term BSBdent is defined in the 
discussion of the state indicator below. 

If function execution is interrupted by a disconnect, 
the function is suspended and the resulting active workspace 
is automatically saved under the name CONTINUE, as noted in 
Part 2. 

State indicator. Typing )SI causes a display of the state 
indicator; a typical display has the following form: 



fl[7] 
<?[2] 
F[3] 



)SI 



The foregoing display indicates that execution was 
halted just before executing statement 7 of the function #, 
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that the current use of function H was invoked in statement 
2 of function G, and that the use of function G was in turn 
invoked in statement 3 of f. The * appearing to the right 
of #[7] indicates that the function H is suspended; the 
functions G and F are said to be pendent. 

Further functions can be invoked when in the suspended 
state. Thus if G were now invoked and a further suspension 
occurred in statement 5 of Q, itself invoked in statement 8 
of G, a subsequent display of the state indicator would 
appear as follows: 



)SI 



«[5] 
G[8] 
Hill 
GC2] 
F[3] 



The entire sequence from the last to the preceding 
suspension can be cleared by typing a branch with no 
argument (that is, -<•). This behavior is illustrated by 
continuing the foregoing example as follows: 



)SI 

am * 

C[2] 
F[3] 

Repeated use of ■* will clear the state indicator completely. 
The cleared state indicator displays as a blank line. 

Stop Control. The stop vector for a function P is denoted 
by SAP7~ ~It is set in the same manner as the trace vector 
(i.e., by SAP*-/ , where the vector I specifies the numbers of 
the statements controlled), and stops execution just before 
each of the specified statements. At each stop, the 
function name and the line number of the statement next to 
be executed are printed. After the stop the system is in 
the normal suspended state; resumption of execution may 
therefore be initiated by a branch. 

Trace control and stop control can be used in 
conjunction. Moreover, either of the control vectors may 
be set within functions. In particular, they may be set by 
expressions which initiate tracing or halts only for certain 
values of certain variables. 
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HOMONYMS 

Variable names. The use of local variables introduces the 
possibility of having more than one object in a workspace 
with the same name. Confusion is avoided by the following 
rule: when a function is executed, its local variables 
supersede, for the duration of the execution, other objects 
of the same name. A name may, therefore, be said to have 
one active referent and (possibly) several latent referents. 

The complete set of referents of a name can be 
determined with the aid of the SIV list (state indicator 
with local variables) , whose display is initiated by the 
command )SIV. The SIV list contains the information 

provided by the command )SI , augmented by the names of the 
variables local to each function. A sample display follows: 



am 

«[3] 
Rt2l 
<7[3] 



)SIV 

* Z X 

p J 

* C X 

p 

Z X 



If the SIV list is scanned downward, from the top, the 
first occurrence of a variable is the point at which its 
active referent was introduced; lower occurrences are the 
points at which currently latent referents were introduced; 
and if the name is not found at all, its referent is global, 
and should be sought for with the commands )FNS, )VARS, or 
)GRPS. 

As the state indicator is cleared (by ■*, or by the 

continuation to completion of halted functions) , latent 

referents become active in the sequence summarized, for the 
preceding SIV list, by the following diagram: 



R 

G 

Global 



ZXIPJCTAB 
+ + + I I I I 

I I I * HI 



I + I 
111^ 



4- + 

I I 

I I 

4- 4 4- 4- 



The currently active referent of a name holds down to 
and including the execution of the function listed at the 
point of the first arrow, because of localization of the 
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name within that function. The first latent referent 
becomes active when that function is completed, and holds 
down to the next arrow; and so forth until the state 
indicator is completely cleared, at which point there are no 
longer any latent referents, and all active referents are 
global objects. 

Function names. All function names are global. In the 
foregoing example, therefore, a function named P cannot be 
used within the function R or within any of the functions 
employed by R, since the local variable name P makes the 
function P inaccessible. However, even in such 
circumstances, the opening of function definition for such a 
function p is possible. (Moreover, as stated in Part 2, 
system commands concern global objects only, regardless of 
the current environment. ) 

This scheme of homonyms is easy to use and relatively 
free from pitfalls. It can, however, lead to seeming 
anomalies as indicated by the following example (shown to 
the authors by J.C.Shaw) of two pairs of functions which 
differ only in the name used for the argument: 



[1] 



VZt-F X 

z-f-x+yv 



[i] 



VZ<-F X 
Z+X+YV 



[1] 



z*f yv 
y«-3 

G t 



[1] 



VZ-s-G R 
Z*-F RV 
yi-3 
G 4 



INPUT AND OUTPUT 

The following function determines the value of an 
amount A invested at interest B[l] for a period of BL21 
years: 

VZ+A CPI B 
[1] Z<-i4=<(l+.01xB[l])*BJ:2]V 

For example: 

1000 CPI 5 M- 
1215.50625 



85 



The casual user of such a function might, however, find 
it onerous to remember the positions of the various 
arguments and whether the interest rate is to be entered as 
the actual rate (e.g., .05) or in percent (e.g., 5). An 
exchange of the following form might be more palatable: 

CI 
ENTER CAPITAL AMOUNT IN DOLLARS 
0: 

1000 
ENTER INTEREST IN PERCENT 
D: 

5 
ENTER PERIOD IN XEARS 
□ : 

t 
RESULT IS 1215.50625 

It is necessary that each of the keyboard entries 
(1000, 5, and 4) occurring in such an exchange be accepted 
not as an ordinary entry (Which would only evoke the 
response 1000, etc.), but as data to be used within the 
function CI. Facilities for this are provided in two ways, 
termed evaluated input, and character input. 



The definition of 
of this section. 



the function CI is shown at the end 



Evaluated input. The quad symbol D appearing anywhere other 
than immediately to the left of a specification arrow 
accepts keyboard input as follows: the two symbols D: are 
printed, the paper is spaced up one line, and the keyboard 
unlocks. Any valid expression entered at this point is 
evaluated and the result is substituted for the quad. For 
example : 



[1] 
[2] 

D: 

36 

D: 

9 



VZ+F 

Z+-H*n*2 

V 

F 

3 
F 
3*2 



8 6 



An invalid entry in response to request for a quad 
input induces an appropriate error report, after which input 
is again awaited at the same point. A system command 
entered will be executed, after which (except in the case of 
one which replaces the active workspace) a valid expression 
will again be awaited. An empty input (i.e., a carriage 
return alone or spaces and a carriage return) is rejected 
and the system again prints the symbols □: and awaits input. 

The symbols D: are printed to alert the user to the 
type of input expected; they can be changed by the library 
function SFEI as described in Part 4. 

Character input, The quote-quad symbol D (i.e., a quad 
overstruck with a quote) accepts character input: the 
keyboard unlocks at the left margin and data entered are 
accepted as characters. For example: 



x-i-H 



CAN'T 



(Quote-quad input, not indented) 



CAN'T 

Escape frgm input Iqse. If evaluated or character input 
occurs within an endless loop in a function, it may be 
impossible to escape by the usual device of striking the 
attention button. Escape from D input can be achieved by 
entering ->■. Escape from input can be achieved by typing 
the three letters OUT, in that order, but with a backspace 
between each pair so that they all overstrike. The effect 
is exactly as if the symbol -*- were entered while suspended. 

Normal output. The quad symbol appearing immediately to the 
left of a specification arrow indicates that the value of 
the expression to the right of the arrow is to be printed. 
Hence, U-*-X is equivalent to the statement X< The longer 
form 0*-X is useful when employing multiple specification. 
For example, U*-Q*X*2 assigns to Q the value X*2 and then 
prints the value of X*2. 

The page width (measured in characters) may be set to 
any value N in the range 30-130 by entering the command 
)»IDTH N. It may also be set by the library function WIDTH 
which may be used within a defined function. (See Part 4.) 
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Heterogeneous output. A sequence of expressions separated 
by semi-colons will cause the values of the expressions to 
be printed, with no intervening carriage returns or spaces 
except those implicit in the display of the values. 

The primary use of this form is for output in which 
some of the expressions yield numbers and some yield 
characters. For example, if X+2 14 , then: 

'THE VALUE OF X IS ' ;X 
THE VALUE OF X IS 2 14 

A further example of mixed output is furnished by the 
definition of the function CI which introduced the present 
section: 

VCI-.A-.I-.Y 

[1] 'ENTER CAPITAL AMOUNT IN .DOLLARS' 

[2] A*U 

[3] 'ENTER INTEREST IN PERCENT' 

C4] 1*0 

[5] 'ENTER PERIOD IN YEARS' 

C 63 7+D 

[7] 'RESULT IS ' ;4x(l+.01xj)*yv 



RECTANGULAR ARRAYS 

Introduction. A single element of a rectangular array can 
be"selected~by specifying its indices? the number of indices 
required is called the dimensionality or rani of the array. 
Thus a vector is of rank 1, a matrix (in which the first 
index selects a row and the second a column) is of rank 2, 
and a scalar (since it permits no selection by indices) is 
an array of rank 0. Rectangular arrays of higher rank may 
be used, and are called 3-dimensional, 4-dimensional, etc. 

This section treats the reshaping and indexing of 
arrays, and the form of array output. The following section 
treats the four ways in which the basic scalar functions are 
extended to arrays, and the next section thereafter treats 
the definition of certain mixed functions on arrays. 



Vectors, dimension, catenation. If X is a vector, then pX 
denotes its dimension. For example, if X*-2 3 5 7 n, then 
pX is 5, and if Y+'ABC , then pY is 3. A single character 
entered in quotes or in response to a D input is a scalar, 
not a vector of dimension 1; this parallels the case of a 
single number, which is also a scalar. 

Catenation chains two vectors (or scalars) together to 
form a vector; it is denoted by a comma. For example: 

Xt-2 3 5 7 11 
X,X 

2 3 5 7 11 2 3 5 7 11 

In general, the dimension of X,Y is equal to the total 
number of elements in X and 7. A numeric vector cannot be 
catenated with a character vector. (However, 
Heterogeneous Output. ) 



see 



Matrices, dimension, ravel. The monadic function p applied 
to an array A yields the sigg of A, that is, a vector whose 
components are the dimensions of A. For example, if A is 
the matrix 



12 3 

5 6 7 
9 10 11 



4 

8 

12 



of three rows and four columns, then pA is the vector 3 4. 

Since pA contains one component for each coordinate of 
A, the expression pp4 is the rank of A. Table 3.4 

illustrates the values of pA and ppA for arrays of rank 
(scalars) up to rank 3. In particular, the function p 
applied to a scalar yields an empty vector. 



Type of Array 


p4 


ppA 


pppA 


Scalar 
Vector 
Matrix 
3-Dimensional 


N 

M N 

L M N 



1 
2 
3 


1 
1 
1 
1 



Table 3.4: DIMENSION AND 
RANK VECTORS 



The monadic function eaygl is denoted by a comma; when 
applied to any array A it produces a vector whose elements 
are the elements of A in row order. For example, if A is 
the matrix 



2 


4 


6 


8 


10 


12 


14 


16 


18 


2 


22 


24 



and if V*-,A then V is a vector of dimension 12 whose 
elements are the integers 2 4 6 8 10 12 ... 24. if A 
is a vector, then ,4 is equivalent to 4; if A is a scalar, 
then ,A is a vector of dimension 1. 

Reshape. The dyadic function p reshapes, its right argument 
to the dimension specified by its left argument, if M*-DpV, 
then M is an array of dimension D whose elements are the 
elements of V. For example, 2 3pl 2 3 4 5 6 is the matrix 



If N , the total number of elements required in the 
array Dp 7, is equal to the dimension of the vector V , then 
the ravel ofBpV is equal to V . if N is less thanpf, then 
only the firsts elements of V are used; if N is greater 
than p V , then the elements of V are repeated cyclically. 
For example, 2 3pl 2 is the matrix 



and 33pl000 is the identity matrix 
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More generally, if A is any array, then Dp A is 
equivalent to Dp, A . For example, if A is the matrix 



2 3 
5 6 



then 3 5pA is the matrix 



12 3 
6 12 
5 6 1 



The expressions Op* and 3p* and 3 Op* and Op* are 
all valid; any one or more of the dimensions of an array may 
be zero. 



J2&S& of .empty arjeays. A vector of dimension zero contains 
no components and is called an :gmp_fcy ysskax. Three 

expressions which yield empty vectors are i and ' ' and p 
applied to any scalar. An empty vector prints as a blank 
line. 

One important use of the empty vector has already been 
illustrated: when one occurs as the argument of a branch, 
the effect is to continue the normal sequence. 

The following function for determining the 

representation of any positive integer J in a base B number 

system shows a typical use of the empty vector in 

initializing a vector Z which is to be built up by 
successive catenations: 

VZ<-B BASE N 
[1] Zi-\0 

121 Z+(.B\N),Z 
[3] N+lNiB 
[4] ->2xff>0V 

10 BASE 1776 
17 7 6 

8 BASE 1776 
3 3 6 

Empty arrays of higher rank can be Useful in analogous 
ways in conjunction with the expansion function described in 
the section on Mixed Functions. 
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Indexing. If X is a vector and I is a scalar, then XII] 
denotes the Ith element of X. For example, if X+-2 3 5 7 11 
then xl2] is 3. 

If the index I is a vector, then Xll] is the vector 
obtained by selecting from X the elements indicated by 
successive components of I. For example, X[l 3 5] is 
2 5 11 and XI 5 4 3 2 1] is 11 7532 and*[l3] is 2 3 5. 

If the elements of I do not belong to the set of indices of 
X, then the expression XII] induces an index error report. 

In general, pxil] is equal to pi. In particular, if I 
is a scalar, then XII] is a scalar, and if I is a matrix, 
then XII] is a matrix. For example: 





A+'ABCDEFG 1 




M+-H 3p 3 1 4 




M 


3 1 


4 


2 1 


4 


i+ 1 


2 


4 1 


4 




am 


CAD 
BAD 




DAB 




DAD 





214412414 



If M is a matrix, then M is indexed by a two-part list 
of the form IiJ where I selects the row (or rows) and J 
selects the column (or columns). For example, if M is the 
matrix 



2 

6 
10 



3 

7 

11 



4 

8 

12 



then Ml 2; 3] is the element 7 and M[l 3; 2 3 4] is the matrix 



2 
10 



3 

11 



4 
12 
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In general, pM\_I;J] is equal to (pI).pJ. Hence if I 
and J are both vectors, then Mil; J] is a matrix? if both I 
and J are scalars, Mil ;J] is a scalar; if I is a vector and 
J is a scalar (or vice versa). Mil ;J] is a vector. The 
indices are not limited to vectors, but may be of higher 
rank. For example, if I is a 3 by 4 matrix, and J is a 
vector of dimension 6, then MII;J] is of dimension 3 4 6, 
and MlJ;I] is of dimension 6 3 4. In particular, if T and P 
and Q are matrices, and if R+TIP-.Q], then R is an array of 
rank 4 and RII;J;K;L] is equal to TIPII;J];QIK;L]]. 

The form Mil;] indicates that all columns are selected, 
and the form Ml;J] indicates that all rows are selected. 
For example, Ml 2;] is 5 6 7 8 and Ml; 2 1] is 

2 1 

6 5 

10 9 

The following example illustrates the use of a matrix 
indexing a matrix to obtain a three-dimensional array: 







M<-4 3p3 14 2 1 


3 

2 
it 
4 


1 

1 
1 
1 


4 
4 
2 
4 
MCM;] 


4 
3 

4 


1 

1 . 
1 


2 
4 
4 


2 
3 
4 


1 
1 
1 


4 
4 
4 


4 

3 
2 


1 
1 
1 


4 
4 
4 


4 
3 

4 


1 
1 
1 


4 
4 
4 



4 it 1 2 4 1 4 
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Permutations are an interesting use of indexing. A 
vector P whose elements are some permutation of its own 
indices is called a Be.rj&u_ta_ti_Qn_ Q_f o_r_dex. pP. For example, 

3 1 H 2 is a permutation of order 4. if X is any vector of 
the same dimension as P, then XLPl produces a permutation of 

X. Moreover, if pP is equal to (pAf)[l], then OTP; ] permutes 
the column vectors of A? (i.e., interchanges the rows of M) 
and is called a coluiBQ. BS£mu.ta.tlAn.. Similarly, if pP equals 

(pAO[2], then M[;P] is a rgw_ ESHSJitation. of M. 

Indexing on. the. lg£fc.. An array appearing to the left of a 

specification arrow may be indexed, in which case only the 

selected positions are affected by the specification. For 
example : 

Xf-2 3 5 7 11 

I[l 3]+6 8 
X 
6 3 8 7 11 

The normal restrictions on indexing apply; in 
particular, a variable which has not already been assigned a 
value cannot be indexed, and an out-of-range index value 
cannot be used. 

Index origin. In Ir&rAgin indexing, Xill is the leading 
element of the vector X and XLpXl is the last element. In 
0-origin indexing, XZOl is the leading element and X["ltpZ] 
is the last. 0-origin indexing is instituted by the command 
)ORIGIN 0. The command )0RIGIN 1 restores 1-origin 
indexing. The index origin in effect applies to all 
coordinates of all rectangular arrays. 

The function ORIGIN in Library 1 WSFNS may also be used 
to control the index origin. It may be executed within a 
function. (See Part 4.) 

In certain expressions such as +/U1M and KfylJlM (to be 
treated more fully in the two following sections), the value 
of J determines the coordinate of the array M along which 
the function is to be applied. Since the numbering of 
coordinates follows the index origin, a change of index 
origin also affects the behavior of such expressions. 

The index origin also affects four other functions, the 
monadic and the dyadic forms of ? arid i. The expression iff 
yields a vector of the first N integers beginning with the 
index origin. Hence Xi\«1 selects the first S components of 
X in either origin. Moreover, il is a one-element vector 
having the value in 0-origin and 1 in 1-origin; tO is an 
empty vector in either origin. 
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The index origin remains associated with a workspace; 
in particular, the index origin of an active workspace is 
not affected by a copy command. A clean workspace provided 
on sign-on or by the command ) CLEAR is in 1-origin. All 
definitions and examples in this text are expressed in 
1-origin. 

Array output. Character arrays print with no spaces between 
components in each row; other arrays print with at least one 
space. If a vector or a row of a matrix requires more than 
one line, succeeding lines are indented. 

A matrix prints with all columns aligned and with a 
blank line before the first row. A matrix of dimension ff.l 
prints as a single column. 

FUNCTIONS ON ARRAYS 

There are four ways in which the scalar functions of 
Table 3.2 extend to arrays: element-by-element, reduction, 
inner product, and outer product. Reduction and outer 
product are defined on any arrays, but the other two 
extensions are defined only on arrays whose sizes satisfy a 
certain relationship called c.o.nfo.rmabiliiy. For the 
element-by-element extension, conformability requires that 
the shapes of the arrays agree, unless one is a scalar. The 
requirements for inner product are shown in Table 3.6. 

Scalar functions. All of the scalar functions of Table 3.2 
are extended to arrays element by element. Thus if M and N 
are matrices of the same size, f is a scalar function, and 
P*-M£N, then Pll-,J1 equals ML I-.Jlfltl I-.J1, and if Q*£N , then 
QlliJ] is equal to fNLl;Jl. 

If M and S are not of the same size, then MtN is 
undefined (and induces a length or rank error report) unless 
one or other of M and N is a scalar or one-element array, in 
which case the single element is applied to each element of 
the other argument. In particular, a scalar versus an empty 
array produces an empty array. 

An expression or function definition which employs only 
scalar functions and scalar constants extends to arrays like 
a scalar function. 

Seduction. The §um-reduction of a vector X is denoted by 
+/X and defined as the sum of all components of X. More 
generally, for any scalar dyadic function f, the expression 
f/X is equivalent to XIl]f Xl2~\£ . „ .f XlpX], where evaluation 
is from rightmost to leftmost as usual. A user-defined 
function cannot be used in reduction. 



95 



If I is a vector of dimension zero, then f/X yields the 
identity element of the function f (listed in Table 3.5) if 
it exists; if X is a scalar or a vector of dimension 1, then 
f/X yields the value of the single element of X. 

The result Of reducing any vector or scalar is a 
scalar. 



Dyadic 




Identity 


Left- 


Function 




Element 


Right 


Times 


X 


1 


L R 


Plus 


+ 





L R 


Divide 


i 


l 


R 


Minus 


- 





R 


Power 


* 


1 


R 


Logarithm 


« 




None 


Maximum 


r 


"7.237. . .275 


L R 


Minimum 


L 


7.237. . .E75 


L R 


Residue 


i 





L 


Circle 


o 




None 


Out of 


t 


1 


L 


Or 


V 





L R 


And 


A 


1 


L R 


Nor 


•>> 




None 


Nand 


* 




None 


Equal 


= 


i| 


Apply 


L R 


Not equal 


* 





for 


L R 


Greater 


> 





logical 


R 


Not less 


S: 


If arguments 


R 


Less 


< 


0| only 


L 


Not greater 


<. 


IJ 


L 



Table 3.5: IDENTITY ELEMENTS OF 
PRIMITIVE SCALAR 
DYADIC FUNCTIONS 



For a matrix M, reduction can proceed along the first 
coordinate (denoted by f/[i]M) or along the second 
coordinate (f/[2]M). The result in either case xs a vector; 
?n general reduction applied to any non-scalar array 
produces a result of rank one less than the rank of A (hence 
the term reduction) . The numbering of coordinates follows 
the index"o"rigin, and an attempt to reduce along a 
non-existent coordinate will result in an maex error. 
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Since +/[1]W scans over the row index of M it sums each 
column vector of M, and +/[2]M sums the row vectors of M. 
For example, if M is the matrix 



then +/[i]w is 5 7 9 and +/[2]W is 6 15. 

In reducing along the last coordinate of an array, the 
coordinate indicator may be elided — thus t/M denotes 
summing over each of the rows of M and +/ V denotes summing 
over the last (and only) coordinate of the vector V. 

Reduction over the first coordinate of M by a function 
f may be obtained by using the expression f/M. The symbol / 
is formed by overstrikihg the solidus with the minus sign. 

JSS? r Ejoduet. The familiar matrix product is denoted by 
C-i-A+.xB. If A and S are matrices, then C is a matrix such 
that CLI;J1 is equal to +MCT; ]xB[ ; «7] . A similar definition 
applies to Af.gB where f and g are any of the standard 
scalar dyadic functions. 

If A is a vector and B is a matrix, then C is a vector 
such that CtJl is equal to +/AxBl-,Jl. If B is a vector and 
it is a matrix, then C is a vector such that C[T3 is equal to 
+M[J;]»B. If both A and B are vectors, then A+.*B is the 
scalar tMxj, 

The last dimension of the pre-multiplier A must equal 
the first dimension of the post-multiplier B, except that if 
either argument is a scalar, it is extended in the usual 
way. For non-scalar arguments, the dimension of the result 
is equal to Cl+p4) ,1+pB. (See the function d£ap in the 
section on Mixed Functions.) In other words, the dimension 
of the result is equal to (pA).pB except for the two inner 
dimensions ( l+pd and 1+pB), which must agree and which are 
eliminated by the reduction over them. 

Definitions for various cases are shown in Table 3.6. 

QS^er BES^mSt. The outer product of two arrays X and I with 
respect to a standard scalar dyadic function g is denoted by 
X°.gX and yields an array of dimension (pAT),pjr, formed by 
applying g to every pair of components of X and Y. 
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Conformability 


Definition 


pA 


oB 


pAf.gB 


requirements 


Z-i-Af .qB 










Z+f/AqB 




V 






Z*-t/AgB 


U 








Z*-f/AgB 


V 


V 




u=v 


Zff/AqB 




V W 


W 




Z[J]*f/4gB[;J] 


T U 




T 




ZLIl+f/AH;lgB 


U 


V W 


W 


v=v 


Z[I]*-f/4gB[;J] 


T V 


V 


T 


u=v 


Zlli-i-f/AlIilgB 


T U 


V w 


T W 


u=v 


ZlI;Jl+f/AlI;lgBl;Jl 



Table 3.6: INNER PRODUCTS FOR PRIMITIVE SCALAR 
DYADIC FUNCTIONS f AND g 



If X and Y are vectors and 
equal to XtllgYLJl. For examples 



Z+-X°.gY, then ZlIiJl is 



X+i3 
7-*-i4 
X°.*Y 



12 3 

2 1+6 

3 6 9 



4 

8 

12 



10 
110 
1110 



If X is a vector and Y is a matrix, and Z-s-Xo.gJ, then 
Z[I;«A;X] is equal to XHlgYWiK]. Definitions for various 
cases are shown in Table 3.7. 









Definition 


pA 


pB 


pA".gB 


Z*-A ° . qB 








Z+AgB 




V 


V 


zin*-AgBin 


V 




V 


ZCT>4[J]gB 


U 


V 


V V 


Z[I iJl+AtllgBlJl 




V W 


V w 


ZlIlJl+AgBLI-.J] 


T V 




T U 


ZlIiJl+AHiJliqB 


V 


V w 


U V w 


ZlI;J;Kl*-AlIlgBUiKl 


T V 


V 


T V V 


ZlIiJiKl+AlIiJlgBZKl 


T U 


V w 


X U V w 


Z[.riJ;KiLl->-AlI;JlqBtKill 



Table 3.7: 



OUTER PRODUCTS FOR PRIMITIVE 
SCALAR DYADIC FUNCTION g 
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MIXED FUNCTIONS 

IS^roductign. The scalar functions listed in Table 3,2 each 
take a scalar argument (or arguments) and yield a scalar 
result; each is also extended element by element to arrays. 
The mixed functions of Table 3.8, on the other hand, may be 
defined on vector arguments to yield a scalar result or a 
vector result, or may be defined on scalar arguments to 
yield a vector result. In extending these definitions to 
arrays of higher rank, it may therefore be necessary to 
specify which coordinate of an array the mixed function is 
applied to. The expression [<7] following a function symbol 
indicates that the function is applied to . the Jth 
coordinate. If the expression is elided, the function 
applies to the last coordinate of the argument array. These 
conventions agree with those used earlier in reduction. 

The numbering, of coordinates follows the index origin. 

Transpose. The expression 2 1$M yields the transpose of the 
matrix M; that is, if i?*2 1S)M , then each element - /? [/;«;] is 
equal to MCJ;/]. For example: 



M 
12 3 

5 6 7 

9 10 11 



4 

8 

12 



2 1$M 
15 9 

2 6 10 

3 7 11 

4 8 12 



If P is any permutation of order ppA, then PS>A is an 
array similar to A except that the coordinates are permuted: 
the Ith coordinate becomes the P[X]th coordinate of the 
result. Hence, if R+P<s>A , then CpflKP] is equal topi. For 
example: 

A+-2 3 5 7pi210 

t>A 
2 3 5 7 

P+2 3 4 1 

pPISM 
7235 
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Name 



Size 
Reshape 
Ravel 
Catenate 



Index 3 4 



Index 
generator 3 

Index of 3 



Take 



Drop 



Grade up 5 
Grade down* 



Compress 5 



Expand 



Reverse 3 



Rotate 5 



Transpose 



Sign 1 I Definition or example 2 



pA 
VpA 
,A 
V.V 



VI Al 

MLA-.Al 

ALA;. . 
..;A1 



iS 



V\A 



V\A 
VIA 



VA 



VIA 



V\A 



$A 
A$A 



pP +•-• 



pB 



3 4 



Reshape A to dimension v 
12pE ■*■■*■ \ 12 OpB «--»• i 

,A *•+ <.*/pA)pA ,E «-+il2 



P,l2 



2 3 5 7 12 



p 5 ■<-->■ iO 

3 4pi 12 *->■ E 
P , 5 <--»■ 1 

2" .'HIS 1 *± 'THIS' 



P[2] 



PC 4 3 2 1] +-»-7 5 3 2 



ffCl 3;3 2 1] 



£[1 ;]«--*■ 1 2 3 4 

K;l] ++ 1 5 8 



3 2 1 
11 10 9 

•ABCDEFGHIJKL'LB] 



ABCD 
EFGH 
IJKL 



First S integers 



Least index of 
in V, or l+pP 



i4 
iO 



12 3 4 

an empty vector 



Pi 3 f+2 



4 4i4 



PiE 



5 12 5 

3 5 4 5 
5 5 5 5 



•J Take (drop) | VI J] first 
>• elements on coordinate 
J I. (Last if VII1<0) 



2 3tX 



2tP 



5 7 



/4BC 
£FC 



}The permutation which 
would order A (ascend- 
ing or descending) 



±3532 +-► 4132 



f3 5 3 2 



2 13 4 



1 3 

10 10 /P *■■* 2 5 101 0/£ -"-5 7 

9 11 
1 l/tl]ff ->-->■ 1 2 3 4 +* 1 1/E 
9 10 11 12 

X BCD 
101\i2i-->-102 i 1 1 1U -^ ! PCff 

J <7KL 



4>* 



DCBA 
HGFE 
LKJI 



3<|)P -m- 7 2 3 5 



<Ki]# ++ ®* •<-»■ sfGff 

<|)P -«-+ 7 5 3 2 iJBC'O 

BCD4 
"li))P 1 li>X *-+ EFGH 

LIJK 



n>4 



ts>A 



Membership 



Decode 

Encode 



Deal 



AeA 



VlV 
VjS 



S?S 



Coordinate I of A 
becomes coordinate 
VII] of result 



AEI 

2 li?X «-->■ BP<7 

CSJf 

1 1$E ■<-+ 1 6 11 DHL 



Transpose last two coordinates 



2 hs>e 



pWe.Y *■+ pV 

Pel 4 «~* 1 10 



ff £ P 



110 
10 10 




1011 7 7 6 ■<--»■■ 1776 24 60 60ll 2 3 +->■ 3723 
24 60 60T3723 «--*• 1 2 3 60 60T3723 j-» 2 3 



V?^ "*■•* Random deal of W elements from xX 



Table 3.8: PRIMITIVE MIXED FUNCTIONS (see adjacent notes) 
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Restrictions on argument ranks are indicated by: S for 
scalar, V for vector, M for matrix, A for Any. Except as 
the first argument of S\A or SLA], a scalar may be used 
instead of a vector. A one-element array may replace any 
scalar. 



2. Arrays used 
in examples : 



12 3 4 
5 6 7 8 
9 10 11 12 



ABCD 
EFGH 
IJKL 



P *■* 2 3 5 7 E 

3. Function depends on index origin. 

4. Elision of any index selects all along that coordinate. 

5. The function is applied along the last coordinate; the 
symbols /■ , \, and © are equivalent to /, \, and 4>, 
respectively, except that the function is applied along the 
first coordinate. If [S3 appears after any of the symbols, 
the relevant coordinate is determined by the scalar S, 



Notes to Table 3.8 



More generally, Q§A is a valid expression if Q is any 
vector of dimension ppA whose elements are chosen from (and 
exhaust) the elements of iT/Q. For example, if ppA is equal 
to 3 , then 112 and 211 and ill are suitable values for 
Q but 1 3 1 is not. Just as for the case PiiA where P is a 
permutation vector, the Pth coordinate becomes the GL-Hth 
coordinate of CM. However, in this case two or more of the 
coordinates of A may map into a single coordinate of the 
result, thus producing a diagonal section of A as 
illustrated below: 

A-<-3 3pi9 



3 
6 
9 

1 1W 
9 
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Table 3.9 shows the detailed 
transposition for a variety of cases. 



definitions 



of 



Monadic transpose. The expression $4 yields the array A 
with the last two coordinates interchanged. For a vector V, 
matrix M, and three dimensional array T, the following 
relations hold: 

§V is equivalent to 1!?7 (and hence to V) 

t)M is equivalent to 2 1W (ordinary matrix transpose) 

$T is equivalent to 1 3 2$T 

Rotate. If K is a scalar or one- element vector and X is a 
vector, then K$X is a cyclic rotation of X defined as 
follows: K$X is equal to ^[l+(pX)| l+K+\pXl. For example, 
if X+2 3 5 7 11, then 2$X is equal to 5 7 11 2 3, and 2$X 
is equal to 7 11 2 3 5. In 0-origin indexing, the 
definition for K$X becomes XI (pJST) \K+t. pXl. 

If the rank of X exceeds 1, then the coordinate J along 
which rotation is to be performed may be specified in the 
form Z+KfylJlX. Moreover, the dimension of K must equal the 
remaining dimensions of X, and each vector along the «7th 
coordinate of X is rotated as specified by the corresponding 
element of K. A scalar K is extended in the usual manner. 



Case 


PR 


Definition 


R*-1$V 


pv 




R-i-V 


R*-l 2«fAf 


pM 




R*-M 


R*-2 1$M 


(p#)[2 1] 




RH;J1+-MIJ;I] 


R+X 1W 


L/pM 




Rl~n->-MtIlIl 


Ri-1 2 3$r 


PT 




Rt-T 


Ri-1 3 2$7 


(pD[l 3 2] 




Rl-I;J;K1<-TH;K;J1 


Rt-2 3 1W 


(pDE3 1 2] 




Ril ;J\K]->-TlJ ;KiIl 


flf-3 1 2$2" 


(pDC2 3 1] 




RLI;J;K1*-T£K;I;J1 


Rt-1 1 2$T 


(L/(pT)Cl 21) 


,(pr)[3] 


RtllJl+TtliliJl 


R-*-X 2 1W 


(L/CpDCi 3]) 


(pDC2] 


RlIiJl+THiJiH 


R+2 1 i$r 


(L/(plT)C2 3]) 


( P r)[i3 


RlIlJl+TUilill 


fl-f-1 1 1$T 


1/pT 




RlIl+TlI;I;Il 



Table 3.9: TRANSPOSITION 
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For example, if pX is 3 4 and J is 2, then K must be of 
dimension 3 and Z[I;] is equal to KLIltyXlI; ] . If J is 1 , 
then pX must be 4, and Z[;T] is equal to X[ J]*X[ ;T] . If X is 
a three-dimensional array, then K must be a matrix or a 
scalar. For example: 



M 



12 3<(>[1]M 



1 2 3<t>[2]« 



12 3 4 
5 6,7 8 
9 10 11 12 



1 6 
5 10 
9 2 



11 
3 
7 



12 



2 3 4 1 

7 8 5 6 

12 9 10 11 



The expression Kex denotes rotation along the first 
coordinate of X. The symbol e is formed by overstriking a o 
with a minus s ign . 

Reverse. If X is a vector and R*-$X, then R is equal to X 
except that the elements appear in reverse order. Formally, 
R is equal to XI it (pX)-ipX]. In o-origin indexing, the 
appropriate expression is Xl~X + (.pX)-ipXJ. 

If A is any array, J is a scalar or one-element vector, 
and R+fylJlA, then R is an array like A except that the order 
of the elements is reversed along the (7th coordinate. For 
example : 



<I>C1W 

4 5 6 
12 3 



H21A 
3 2 1 
6 5 4 



The expression <M denotes reversal along the last 
coordinate of A, and eA denotes reversal along ' the first 
coordinate. For example, if A is of rank 3, then <M is 
equivalent to <t>[3]4, and &A is equivalent to <|)C1]>1. 

99$BS§§§- Tne expression U/x denotes compression of X by U . 
If U is a logical vector (comprising elements having only 
the values o or l ) and X is a vector of the same dimension, 
then u/X produces a vector result of +/U elements chosen 
from those elements of x corresponding to non-zero elements 
of U. For example, if X-<-2 3 5 7 n and U«-i o l l o then 
U/X is 2 5 7 and (~U)/X is 3 n. 

To be conformable, the dimensions of the arguments must 
agree, except that a scalar (or one-element vector) left 
argument is extended to apply to all elements of the right 
argument. Hence l/X is equal to X and o/l is an empty 
vector. A scalar right argument is not extended. The 
result in every case is a vector. 
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If M is a matrix, then U/lllM denotes compression 
along the first coordinate, that is, the compression 
operates on each column vector and therefore deletes certain 
rows. It is called column compression. Similarly, f//[2]M 
(or simply U/M) denotes row compression. The result in 
every case is a matrix. As in reduction, U/M denotes 
compression along the last coordinate, and U/M denotes 
compression along the first. 

Expand. Expansion is the converse of compression and is 
denoted by U\X. If X+U\X, then U/Y is equal to X and (if X 
is an array of numbers) (~U)/Y is an array of zeros. In 
other words, U\X expands X to the format indicated by the 
ones in U and fills in zeros elsewhere. To be conformable, 
+/U must equal pX. 

If X is an array of characters, then spaces are 
supplied rather than zeros, i.e., if X*-U\X then (.~U)/X is an 
array of the space character ' ' . Again, U\LJ]M denotes 
expansion along the Jth coordinate, U\M denotes expansion 
along the last, and U\M denotes expansion along the first. 
See Table 3.8 for examples of expansion. 

A scalar left argument is not extended. 



Decode. The expression RxX denotes the value of the vector 
X evaluated in a number system with radices 
RZ11.RL21,. ■'.■. ,RZpRl. For example, if fl+2.1 60 60 and 

Xf-l 2 3 is a vector of elapsed time in hours, minutes, and 
seconds, then RxX has the value 372 3, and is the 
corresponding elapsed time in seconds. Similarly, 
10 10 10 10 i 1 7 7 6 is equal to 1776, and 222x101 is 
equal to 5. Formally, RlX is equal to +/W*X, where W is the 
weighting vector determined as follows: WtpWI is equal to 
1, and V[Jrl] is equal to RlIjxWLIl. For example, if S is 
24 60 60, then W is 3600 60 1. 

The result is a scalar. 

The arguments R and X must be of the same dimension, 
except that either may be a scalar (or one-element vector) . 
For example, 10 i 1 7 7 6 is equal to 1776. The arguments 
are not restricted to integer values. If X is a scalar, 
then XiC is the value of a polynomial in X with coefficients 
C, arranged in order of descending powers of X. 

The decode function is Commonly applied in work with 
fixed-base number systems and is often called the feagg 
value function. 



ion 



Encode. The encode function RrN denotes the representation 
of the scalar a in the base-?? number system. Thus, if 
Z+ffTff, then (x/r)\n-RiZ is equal to zero. For example, 
2222T5is0101 and 222T5isl01 and 2 2 t 5 is 
1. The dimension of RtH is the dimension of R. The 
encode function is also called rep_resentatign. 

Index of. If V is a vector and S is a scalar, then J<-V\S 
yields the position of the earliest occurrence of S in V. 
If S does not equal any element of V, then J has the value 
(UltpV. Clearly, this value depends, as does any result of 
this function, on the index origin, and is one greater than 
the largest permissible index of V. 

If S is a vector, then J is a vector such that JTI] is 
the index in V of SCI]. For example: 

'ABCDEFGH' i ' GAFFE ' 
7 16 6 5 

If X is a numerical vector, then the expression Xx\/X 
yields the index of the (first) maximum element in X. For 
example, if X is the vector 8 3 5 13 2 7 9, then [/X is 13 
and Xx\ /X is <+. 

The result in every case bas the same dimensions as the 
righthand argument of i. For example, if Z->-V\S, and S is a 
matrix, then Z[J;«n is equal to ViStliJj. 

Membership. The function XeY yields a logical array of the 
same dimension as X. Any particular element of XeY has the 
value 1 if the corresponding element of X belongs to 1 , that 
is, if it occurs as some element of X. For example, 
(i7)e3 5 is equal to 0010100 and ' ABCDEFGH' e< COFFEE' 
equals 0010110 0. 

If the vector U represents the universal set in some 
finite universe of discourse, then UeA is the characteristic 
of the set A, and the membership function is therefore also 
called the characteristic function. 

The size of the result of the function e is determined 
by the size of the left argument, whereas the size of the 
result of the dyadic function i is determined by the size of 
the right argument. However, the left arguments of both 
frequently play the role of specifying the universe of 
discourse. 
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Tafe and dxap. If F is a vector and S is a scalar between 

and p7, then S + 7 takes the first 5 components of 7. For 

example, if 7-<-i7, "then 3 + 7 is 12 3 and + 7 is i0, and 8 + 7 
yields a domain error. 

If S is chosen from the set -ip7, then S + 7 takes the 
last 15 elements of V. For example, 3+7 is 5 6 7. 

If A is an array, then J? +4 is valid only if W has one 
element for each dimension of A , and Will determines what is 
to be taken along the Ith coordinate of A. For example, if 
A *■ 3 tpil2, then 2 ~3+4 is the matrix 



The function drsp. (+)' is defined analogously, except 

that the indicated number_of elements are dropped rather 

than taken. For example, 1 1M is the same matrix as the 
one displayed in the preceding paragraph. 

The rank of the result of the take and drop functions 
is the same as the rank of the right argument. The take and 
drop functions are similar to the transpose in that the left 
argument concerns the dimension vector of the right 
argument. 

Grade up and sIqwd. The function 47 produces the permutation 
which would order'?, that is ft 47] is in ascending order. 
For example, if . V is the vector 7 1 16 5 3 9, then 47 is the 
vector 2 5 t 1 6 3, since 2 is the index of the first in 
rank, 5 is the index of the second in rank, and so on. The 
symbol 4 is formed by overstriking I and A. 

If P is a permutation vector, then 4P is the 
permutation inverse to P. If a vector D contains duplicate 
elements, then the ranking among any set of equal elements 
is determined by their positions in D. For example, 

45 3 7 3 9 2 is the vector 6 2 4 13 5. 

The right argument of 4 may be any array A of rank 
greater than zero, and the coordinate J along which the 
grading is to be applied may be indicated by the usual 
notation IM1A. The form 44 applies as usual to the last 
coordinate. The result of 44 is of the same dimension as A. 

The grade. do.wn. function t is the same as the function 4 
except that the grading is determined in descending order. 
Because of the treatment of duplicate items, the expression 
a/(47)=4>T7 has the value 1 if and only if the elements of 
the vector 7 are all distinct. 
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Deal. The function M?N produces a vector of dimension M 
obtained by making M random selections, without replacement, 
from the population iff. in particular, N?N yields a random 
permutation of order ff. Both arguments are limited to 
scalars or one-element arrays. 

gomments. The lamp symbol n, formed by overstriking n and 
o , signifies that what follows it is a comment, for 
illumination only and not to be executed; it may occur only 
as the first character in a statement, but may be used in 
defined functions. 

MULTIPLE SPECIFICATION 

Specification (<-) may (like any other function) occur 
repeatedly in a. single statement. For example, the 
execution of the statement Z-*-AT><4-<-3 will assign to A the 
value 3 , then multiply this assigned value of A by X and 
assign the resulting value to Z . 

Multiple specification is useful for initializing 
variables. For example: 

X+Ilrl+Z+0 

sets X and I to 1 and Z to 0. 

A branch may occur in a statement together with one or 
more specifications, provided that the branch is the last 
operation to be executed (i.e., the leftmost). For example, 
the statement ■*S"\K>I->-l+l first augments I, and then 
branches to statement S if N exceeds the new value of I. 

In the expression Z-<-(4+B )x(C+D) it is immaterial 
whether the left or the right argument of the * is evaluated 
first, and hence no order is specified. The principle of no 
specified order in such cases is also applied when the 
expressions include specification. Since the order here is 
sometimes material, there is no guarantee which of two or 
more possible results will be produced. 

Suppose, for example, that A is assigned the value 5 
and the expression Z<-(4«-3)x/i is then executed. If the left 
argument of x is executed first, then A is assigned the 
value 3, the right argument then has the new value 3 and Z 
is finally assigned the value 9. If, on the other hand, the 
right argument is evaluated first it has the value 5 
initially assigned to A, the value 3 is then assigned to A 
and multiplied by the 5 to yield a value of 15 to be 
assigned to Z. 
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SYSTEM DEPENDENT FUNCTIONS 

There are three main types of information about the 
state of the system which are of value to the user: 

1. general information common to all users, such as 
date, time of day, and the current number of terminals 
connected to the system. 

2. information specific to the particular work 
session, such as the time of sign-on, the central 
computer time used, and the total keying time. 

3. information specific to the active workspace, such 
as the amount of storage available, and the condition 
of the state indicator. 

This information is provided by a single family of 
functions denoted by i (formed by overstriking t, and J. ) , 
and called the XrBeam functions . The individual member 
function is selected by the argument as shown in Table 3.10. 
Times are all in units of one- sixtieth of a second, the date 
is given as a six-digit integer in which the successive 



digit pairs specify the month, day, 
available storage is given in jpytas. 



and year, and the 



The byte is a unit of storage equal to 8 binary digits. 
A variable requires for storage a small number of bytes of 
overhead, plus a certain number of bytes per element 
depending upon the form of its representation: 1 if the 
elements are characters, 0.125 if the elements are logical, 
4 if the elements are integers less than 2*31 in magnitude, 
and 8 for other numbers. 

In designing an algorithm for a particular purpose, it 
frequently happens that one may trade time for space; that 
is, an algorithm which requires little computer time may 
require more storage space for intermediate results, and an 
algorithm which requires little storage may be less 
efficient in terms of time. Hence, the information provided 
by the functions i21 (computer time used) and 12 2 (available 
storage space) may be helpful in designing algorithms. For 
example, the function TIME of Appendix B can be used to 
determine the computer time used in the execution of a 
function . 

Moreover, since the functions i21 and 12 2 can, like all 
of the I-beam functions, be used within a defined function, 
they can be used to make the execution dependent upon the 
space available or the computer time used. 
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Definition of iX 



Accumulated keying time (time during which the keyboard 

has been unlocked awaiting entries) during this session. 

The time of day. 

The central computer time used in this session. 

The amount of available space (in bytes) . 

The number of terminals currently connected. 

The time at the beginning of this session. 

The date. 

The first element of the vector 127. 

The vector of statement numbers in the state indicator. — 



NOTES 

1. All times in H60 seconds 

2. Date is represented by a 6-digit integer; successive 
digit pairs represent month, day, and year. 

3. 12 7 yields a vector; all other results are scalars. 



Table 3.10: SYSTEM DEPENDENT FUNCTIONS 



Keying time is defined as the total accumulated time 
since sign-on during which the keyboard has been unlocked 
awaiting entry. The associated function (H9) may be used 
in conjunction with or D input to determine the amount of 
time taken by a student in responding to a question. The 
following example shows the definition and use of a 
multiplication drill which tells the student how long he has 
taken (in whole minutes and seconds) to answer each 
question: 





VMULTDRILL N;X;Y;TIME 


[1] 


QirY*-?N 


[2] 


TIME+T19 


C3] 


X+Q 


O] 


TIME<-(Tl9)-TIME 


[5] 


-+8x\X**/Y 


[6] 


'TIME: ';2+60 60 &0TTIME 


[7] 


-+1 


[8] 


'WRONG, TRY AGAIN' 


[9] 


+ 3V 




MULTDRILL 12 12 


6 3 




D: 






18 


TIME: 


3 


1 5 






30 


WRONG 


, TRY AGAIN 


D: 
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Such a drill could be expanded to accumulate statistics of 
the student's response times or to use some function of the 
response times to control the difficulty of the questions 
posed. 

Since times are expressed in units of 1*60 seconds, the 
time in hours, minutes, and seconds can be determined by an 
expression of the form 3+24 60 60 60ti21. Similarly, a 
3-element vector representing the date can be obtained from 
the expression ( 3ploo)Ti25 . 

The expression 12 7 provides the vector of statement 
numbers in the state indicator, with the first position 
occupied by the number of the statement on which the 
innermost function is suspended. If no functions are 
suspended, the vector i2 7 is empty. 

The expression 12 6 yields a scalar which is the first 
element of i2 7. It is therefore equal to the number of the 
statement being, or about to be, executed and is 
particularly useful in branches. For example, +/P+I26 causes 
a forward jump of N statements. Moreover, entering -*-i26 is 
a safe way to resume execution without having to read and 
enter the statement number printed at the point of the last 
suspension. It is even more convenient to resume by 
entering -+C, after first defining the function C as follows: 



[1] 



vz+c 

Z+(l27)[2]V 
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PART 4 

LIBRARY FUNCTIONS 

A user may load or copy functions from any workspace 
for which he knows the library number and workspace name 

(and password, if any) . Moreover a listing of the 
workspaces in Library N can be obtained by the command 

)LIB N for any public library, i.e., for any library whose 
number is below 1000. 

A public library may be used for the casual sharing of 
functions among a group of co-workers . When intended for 
more general use, a library function should be thoroughly 
tested and well-documented, and should incorporate messages 
for the guidance of the user. It is therefore good practice 
to restrict certain of the public libraries to such 
functions as are of general interest and have passed 
appropriate acceptance tests. 

In the APL\360 system as distributed, Library 1 is 
restricted in this manner. This section treats each of the 
workspaces in this library by loading each and displaying 
the descriptions contained in the workspaces themselves. 
Further information on the functions in each workspace can 
(except in the case of the locked functions in WSFNS) be 
obtained by displaying the function definitions. 



)L0AD 1 ADVANCED EX 
ADVANCEDEX SAVED 07/14/68 

)FNS 
AH ASSOC BIN COMB 

GC GCD GCV HI LB 

INI LFC LOOKUP PALL 



POLY 



POLYB 



RESET 



6.53.19 








DTH 


ENTER 


F 


FC 


HTD 


IN 


INV 


INVP 


PER 


PERM 


PO 


POL 



TIME 



TRUTH 



ZERO 



DESCRIBE 

EACH OF THE VARIABLES OF THIS WORKSPACE WHICH BEGINS WITH THE 
LETTER D IS THE DESCRIPTION OF THE FUNCTION WHOSE NAME IS 
OBTAINED BY REMOVING THE D. FOR FURTHER DETAILS SEE APPENDIX 
B OF THE 4PZA360 MANUAL. 
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)LOAD 1 PLOTFORMAT 
PLOTFORMAT SAVED 07/20/68 

)FNS 
AND DESCRIBE DFT 

DESCRIBE 



31. 07. 27 



EFT 



PLOT 



VS 



THE FUNCTIONS INCLUDED IN THIS WORKSPACE ARE LISTED BELOW: 

SYNTAX DESCRIPTION 

Z+A AND B ESSENTIALLY A COLUMN -CATENATOR, WITH SOME EXTRA 
EFFECTS WHEN THE ARGUMENTS ARE NOT MATRICES. 
THIS FUNCTION IS DESIGNED TO BE USED EITHER 
INDEPENDENTLY, OR IN CONJUNCTION WITH VS. IT 
PROVIDES A CONVENIENT WAY OF FORMING INPUT 
TO DFT AND EFT. 

Z+A DFT B FORMS FIXED -POINT OUTPUT. MORE DETAILED DIREC- 
TIONS CAN BE FOUND IN THE VARIABLE HOWFORMAT. 

Z+A EFT B FORMS EXPONENTIAL OUTPUT. MORE DETAILED DIREC- 
TIONS CAN BE FOUND IN THE VARIABLE HOWFORMAT. 

A PLOT B GRAPHS ONE OR MORE FUNCTIONS SIMULTANEOUSLY. 

DIRECTIONS FOR USING PLOT CAN BE FOUND IN THE 
VARIABLE HOWPLOT. 

Z+A VS B ESSENTIALLY A COLUMN-CATENATOR , SIMILAR TO AND, 
EXCEPT THAT THE RIGHT-HAND ARGUMENT MUST BE OF 
RANK <. 1. IT IS DESIGNED PRIMARILY TO PROVIDE 
CONVENIENT FORMATION OF INPUT TO PLOT FUNC- 
TION. WHETHER USED BY ITSELF OR WITH AND, VS 
WILL CAUSE ITS RIGHT ARGUMENT TO APPEAR AS THE 
LEFTMOST COLUMN OF THE RESULTANT ARRAY. (THE 
RESULTANT WILL BE AN ARRAY OF RANK THREE, 
CONSISTING OF A SINGLE PLANE). 

BOTH AND AND VS WORK WITH EITHER 1 OR -ORIGIN INDEXING. 
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HOWFORMAT 

THE FUNCTIONS DFT AND EFT WILL ARRAY NUMBERS IN DECIMAL AND 
EXPONENTIAL FORM, RESPECTIVELY, FOR TABULAR OUTPUT. THEY 
MAY BE USED TO GENERATE IMMEDIATE OUTPUT, OR TO STORE AN 
IMAGE FOR LATER PRINTING. THE TWO FORMS ARE: 

PATTERN DFT TABLE 
PATTERN EFT TABLE 



AND 



IMAGE+PATTERN DFT TABLE 
IMAGE+PATTERN EFT TABLE 



THESE FUNCTIONS WORK PROPERLY ONLY WITH 1-ORIGIN INDEXING. 

RIGHT ARGUMENT: AN ARRAY TO BE FORMED. 

IT MUST BE NUMERICAL, AND OF RANK < 3. THE FIRST 
PLANE OF A 3-DIMENSIONAL ARRAY WILL BE TREATED AS A 
MATRIX, AND ALL OTHER PLANES WILL BE DISREGARDED . 
ARRAYS OF HIGHER RANK WILL BE SIGNALLED AS A 'RANK 
PROBLEM. ' 

LEFT ARGUMENT: ONE OR MORE INTEGERS TO CONTROL THE FORMAT. 
FRACTIONAL NUMBERS WILL BE SIGNALLED AS A 'DOMAIN 
PROBLEM. ' 

A SINGLE INTEGER: 

DFT: SPECIFIES THE NUMBER OF DIGITS TO THE RIGHT OF 
- THE DECIMAL POINT IN DECIMAL FORMAT. 

EFT: SPECIFIES THE NUMBER OF SIGNIFICANT DIGITS IN 
EXPONENTIAL FORMAT. ONE DIGIT ALWAYS APPEARS TO THE 
LEFT OF THE DECIMAL POINT. COLUMNS' WILL BE SPACED 
UNIFORMLY, WITH SPACING SUCH THAT THERE WILL BE TWO 
SPACES BETWEEN THE CLOSEST NUMBERS. 

A PAIR OF INTEGERS: THE FIRST SPECIFIES THE TOTAL 

NUMBER OF SPACES TO BE ALLOCATED TO EACH COLUMN, AND 

THE SECOND IS USED AS ABOVE. 

DFT: THE FIRST NUMBER MUST BE AT LEAST TWO LARGER 

THAN THE SECOND. 

EFT: THE FIRST NUMBER MUST BE AT LEAST SIX LARGER 

THAN THE SECOND. IF THE LEFT NUMBER IS TOO SMALL, 

THIS WILL BE SIGNALLED AS A 'DOMAIN PROBLEM. < 

MORE THAN ONE PAIR OF INTEGERS: THERE MUST BE ONE PAIR 
FOR EACH COLUMN OF OUTPUT (OR EACH ELEMENT OF A VEC- 
TOR). EACH PAIR WILL BE INTERPRETED AS ABOVE, AND 
WILL APPLY TO THE LAYOUT OF THE CORRESPONDING COLUMN. 
IF THE NUMBER OF PAIRS DOES NOT MATCH THE NUMBER OF 
COLUMNS, THIS WILL BE SIGNALLED AS A 'LENGTH PROBLEM.' 
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HOWPLOT 

THE FUNCTION PLOT WILL GRAPH ONE OR MORE FUNCTIONS 

SIMULTANEOUSLY, AUTOMATICALLY SCALING THE VALUES TO FIT 
APPROXIMATELY WITHIN SCALE DIMENSIONS SPECIFIED BY THE USER. 
IT WILL WORK ONLY IN 1-ORIGIN INDEXING. 

THE FORM IN WHICH PLOT IS USED IS: 

SCALESIZE PLOT FUNCTION 



LEFT ARGUMENT: ONE OR TWO NUMBERS. 

THE FIRST NUMBER SPECIFIES THE APPROXIMATE SIZE OF THE 
VERTICAL AXIS AND THE SECOND NUMBER DOES THE SAME 

FOR THE HORIZONTAL AXIS. 



IF ONLY ONE NUMBER IS 
AXES. 



SUPPLIED, IT IS APPLIED TO BOTH 



THERE IS NO BUILT-IN LIMIT TO THE DIMENSIONS, AND A 
HORIZONTAL AXIS LARGER THAN THE WORKSPACE WIDTH WILL 
CAUSE SOME POINTS TO BE PRINTED ON THE NEXT LOWER 

LINE. 

RIGHT ARGUMENT: A RECTANGULAR ARRAY WITH RANK s 3. 

SCALAR: WILL BE TREATED AS A VECTOR OF LENGTH ONE. 

VECTOR: WILL BE PLOTTED AS ORDINATE AGAINST ITS OWN 
INDICES AS ABSCISSA. 

MATRIX: THE LEFTMOST COLUMN WILL BE TAKEN AS THE 
ABSCISSA AND ALL OTHER COLUMNS WILL BE PLOTTED AS 
ORDINATES. A DIFFERENT PLOTTING SYMBOL UP TO THE 
NUMBER. OF SYMBOLS' AVAILABLE WILL BE USED FOR EACH 
COLUMN. IN CASE TWO ORDINATES HAVE A COMMON POINT, 
THE SYMBOL FOR THE COLUMN FURTHEST TO THE RIGHT WILL 
BE USED. 

Z-DIMENSIONAL ARRAY: THE FIRST PLANE WILL BE PLOTTED 
AS A MATRIX, AND ALL OTHER PLANES WILL BE DISREGARDED. 
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AUXILIARY FUNCTIONS: THE FUNCTIONS AND AND VS CAN BE 

USED TO GENERATE THE RIGHT ARGUMENT IN THE PROPER FORM 
FOR PLOT. FOR EXAMPLE: 



PLOT 



2 PLOT Z AND Y VS X 

CHARACTERS: THE SYMBOLS USED ARE ASSIGNED TO THE 
VARIABLE PC IN LINE 1 OF PLOT. THE ALPHABET 

SUPPLIED IS '0*oVAD'. THIS ALPHABET MAY BE EXTENDED 
AND MODIFIED AS DESIRED, USING THE NORMAL 

FUNCTION-EDITING PROCEDURES: EITHER CHANGE LINE 1 OF 
THE FUNCTION, OR DELETE IT AND INDEPENDENTLY SPECIFY 
A VALUE FOR PC. 

HISTOGRAMS: PLOT CAN BE USED TO GENERATE HISTOGRAMS BX 

SETTING THE VARIABLE HS TO 1 Iff LINE 2 OF THE 

FUNCTION. ALTERNATIVELY, LINE 2 CAN BE DELETED, AND 
HS CAN BE SET EXTERNALLY. 



)LOAD 1 APLCOURSE 
APLCOURSE SAVED 07/19/68 

)FNS 
BIX CHECK DESCRIBE 

EASY EASYDRILL FORM 

INTER LOG QUES RANDOM 

SETPARAMETERS TEACH TRACE 



25. 58. 06 



DIM DRILL 

FUNDRILL 

REDSCAPATCH 



DYAD1 

GET 

REPP 



DYAD 2 
INPUT 



DESCRIBE 

THE MAIN FUNCTIONS IN THIS LIBRARY WORKSPACE ARE: 

TEACH 
EASYDRILL 

ALL OTHER FUNCTIONS ARE SUBFUNCT10NS AND ARE NOT 

SELF-CONTAINED. 

SYNTAX DESCRIPTION 

TEACH AN EXERCISE IN APL FUNCTIONS USING SCALARS 

AND VECTORS. TEE FUNCTION PRINTS OUT THE 
CHOICES AND OPTIONS AVAILABLE. EXAMPLES 
ARE SELECTED AT RANDOM WITH A RANDOM 
STARTING POINT. 

EASYDRILL THIS IS THE SAME AS TEACH EXCEPT THAT THE 

PROBLEMS SELECTED ARE GENERALLY SIMPLER IN 
STRUCTURE. PROBLEMS INVOLVING VECTORS OF 
LENGTH ZERO OR ONE ARE EXCLUDED. 
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NOTE: FOR EITHER FUNCTION, A RESPONSE OF - PLEASE - WILL 
DISCLOSE THE PROPER ANSWER. A RESPONSE OF - STOP - WILL 
TERMINATE THE DRILL. 

TEACH 
ARE YOU ALREADY FAMILIAR WITH THE INSTRUCTIONS? (TYPE 
Y FOR YES AND N FOR NO.) 
N 

THIS IS AN EXERCISE IN SIMPLE APL EXPRESSIONS. YOU WILL 
FIRST HAVE THE OPPORTUNITY TO SELECT THE FEATURES YOU WISH 
TO BE DRILLED IN. THE EXERCISE THEN BEGINS. FOR EACH 
PROBLEM YOU MUST ENTER THE PROPER RESULT. ANSWERS WILL 
CONSIST OF SCALAR INTEGERS IF EXERCISES WITH VECTORS ARE NOT 
DESIRED; OTHERWISE ANSWERS WILL CONSIST OF SCALARS OR 
VECTORS. A VECTOR OF LENGTH ZERO REQUIRES THE RESPONSE lO, 
A VECTOR OF LENGTH ONE REQUIRES THE RESPONSE X, WHERE X IS 
THE VALUE OF THE ELEMENT. YOU HAVE THREE TRIES FOR EACH 
PROBLEM. TYPE STOP AT ANY TIME TO TERMINATE THE EXERCISE 
AND PRODUCE A RECORDING OF YOUR, PERFORMANCE. TYPING 
STOPSHORT WILL TERMINATE THE EXERCISE BUT WILL NOT PRODUCE 
A RECORD OF PERFORMANCE. TYPING PLEASE FOR ANY PROBLEM 
WILL LET YOU PEEK AT THE ANSWERS. TYPE Y UNDER EACH 
FUNCTION FOR WHICH YOU WANT EXERCISE: 



SCALAR DYADIC FUNCTIONS 

YYYYY Y 

SCALAR MONADIC FUNCTIONS 

+ -x*!-L!|~ 

YY 
TYPE Y IF EXERCISES ARE TO USE VECTORS, N OTHERWISE 
N 

~6x~'3 
D: 



18 



Q: 



L 2.5 



TRY AGAIN 
~3 



STOPSHORT 



0+7 
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)LOAD 1 WSFNS 
WSFNS SAVED 07/20/68 31.25.23 



)FNS 
DELAY DESCRIBE 



DIGITS ORIGIN SETLINK SFEI 



WIDTH 



DESCRIBE 



THE FUNCTIONS ORIGIN, WIDTH, AND DIGITS ARE EACH 
SIMILAR TO THE COMMAND OF THE SAME NAME, EXCEPT THAT EACH IS 
A FUNCTION RATHER THAN A COMMAND AND MAY ThEREFORE BE USED 
WITHIN OTHER FUNCTIONS. EACH HAS AN EXPLICIT RESULT WHICH 

IS THE PREVIOUS VALUE OF TH 1 RELEVANT SYSTEM PARAMETER . 

FOR EXAMPLE, THE FOLLOWING FUNCTION: 

VF X 
[1] Xi-ORIGIN X 
[2] G 
[3] Xi-ORIGIN XV 

WILL EXECUTE THE FUNCTION G WITH WHATEVER INDEX ORIGIN IS 
SPECIFIED BY THE ARGUMENT OF F, AND WILL RESTORE THE INDEX 
ORIGIN TO THE VALUE THAT IT HAD BEFORE THE EXECUTION OF F. 

THE FOLLOWING FUNCTIONS ARE ALSO AVAILABLE: 



SYNTAX 



Z+SETLINK X 



DELAY X 
SFEI X 



B.KS.CRIPTIQE 

SETS THE VALUE OF THE LINK IN THE CHAIN OF 
NUMBERS GENERATED IN THE USE OF THE ROLL AND 
DEAL FUNCTIONS. THE EXPLICIT RESULT PRODUCED 
BY SETLINK IS THE PREVIOUS VALUE OF THE LINK. 

THE RESULTS PRODUCED BY THE ROLL AND DEAL 
FUNCTIONS ARE NOT THE LINKS THEMSELVES , BUT 
RATHER SOME FUNCTION OF THEM. THE LENGTH OF 
THE CHAIN {BEFORE REPETITION) IS "1+2*31. 

DELAYS EXECUTION FOR X SECONDS. 

SETS THE SIGNAL MESSAGE FOR EVALUATED INPUT 
(SEE THE SECTION ON INPUT AND OUTPUT, PART 3 
OF THE 4PZA360 USER'S MANUAL). THE ARGUMENT 
MUST BE A LINE OF NO MORE THAN 7 CHARACTERS . 
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)LOAD 1 TYPEDRILL 
TYPED RILL SAVED 07/14/68 



19. 42. 16 



)FNS 
DESCRIBE 
STATISTICS 



IN 
TIME 



INSTRUCTIONS 
TYPEDRILL 



MATCH 
WS 



PRT 



QUERY 



TYPEDRILl 
CONTROL WORDS ARE: ENTER, DRILL, STAT, AND STOP, 

YOU ARE IN CONTROL STATE 

ENTER 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO 

I SING OF OLAF GLAD AND BIG 

X<-\[P*Q+Y*R<5 



DESCRIBE 

THE MAIN FUNCTION IN THIS WORKSPACE IS TYPEDRILL; ALL 
OTHERS ARE SUBFUNCTIONS . TO USE IT, SIMPLY ENTER 

TYPEDRILL 

TYPEDRILL IS A TIMED TYPING EXERCISE. THE SYSTEM 
RESPONDS WITH THE STATEMENT 'YOU ARE IN CONTROL STATE'. 
FOUR COMMANDS ARE AT YOUR DISPOSAL: ENTER, DRILL, STAT, AND 
STOP. ENTERING ONE OF THEM BRINGS YOU INTO THAT STATE: 

ENTER: YOU MAY ENTER ONE -LINE SENTENCES OR 

EXPRESSIONS ON WHICH YOU WISH TO BE DRILLED. ENTERING 
A BLANK LINE (CARRIAGE RETURN ONLY) RETURNS YOU TO THE 
CONTROL STATE. 

DRILL: ONE OF THE LINES ENTERED VIA THE ENTER STATE IS 
SELECTED AT RANDOM AND PRINTED. YOU ARE THEN EXPECTED 
TO ENTER THE SAME LINE. IF IT IS CORRECT, THE TIME 
TAKEN IS PRINTED (IN SECONDS), IF NOT YOU ARE ASKED TO 
RETYPE IT. A BLANK LINE CAUSES RETURN TO THE CONTROL 
STATE. 

STAT: THE ACCUMULATED STATISTICS ARE PRINTED. THE 
HORIZONTAL AXIS SHOWS THE TRIAL NUMBERS AND THE 
VERTICAL SHOWS THE TIME IN SECONDS. A VERTICAL ARROW 
INDICATES THAT THE TIME EXCEEDED THE LIMITS OF THE 
GRAPH. THE RETURN TO THE CONTROL STATE IS AUTOMATIC. 

STOP: STOPS THE DRILL AND PRINTS THE STATISTICS. 



YOU ARE IN CONTROL STATE 

DRILL 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO 

NOW IS THE TIME OFR ALL GOOD MEN TO COME TO 

A 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO 

16.9 

X+\tPxQ+Y*RH5 

X->-\[PxQ + Y*R£5 

19.9 

I SING OF OLAF GLAD AND BIG 

YOU ARE IN CONTROL STATE 
STOP 



118 



119 



Appendix A 
SAMPLE TERMINAL SESSION 



)177£ 

010) 19.32.36 07/03/68 JANET 



A P L \ 3 S 



12 
12 

7 

1. 44 

1 4 

"5 

CATS 

10 

18 

16 
24 



3x4 
Jf-«-3x4 
X 
7-<-~5 

*+7 

144£'~2 

P<-1 2 3 4 

Pxp 

9 16 

Px7 

"10 "15 "20 

q+'cats* 



72-*- 5 

yzi+5 
7Z+7Z1 

3+4x5+6 
V 
+ 5+6 

X<-3 
7+4 
Ux7)+4 

Xx7+4 



FUNDAMENTALS 

Entry automatically indented 
Response not indented 
X is assigned value of 
the expression 

Value of X typed out 
Negative sign for negative 
constants 



Exponential form of constant 

Pour- element vector 

Functions apply element by element 

Scalar applies to all elements 

Character constant (4-element 
vector) 

Multi-character names 



Correction by backspace 
and linefeed 



Executed from right to left 
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X Y 
SYNTAX ERROR 
X Y 

XY 
VALUE ERROR 
XY 



20 
12 
24 



4x3T5.1 
.4 

(4x3)T5.1 

4xT5.1 

X 

12 3 4 5 
10 

Y+5-X 

Y 
4 3 2.1 

X(Y 
4 3 3 4 5 

XiY 
110 

Ol 
3.141592654 

0*1 2 
3.141592654 1.570796327 

X+45 90 

OX4180 
0.7853981634 1.570796327 

lOl 
0.8418709848 

201 2 
0.5403023059 "0.416146836 

301 
1.557407725 

~301 
0.7853981634 

30 _ 30i7 
12 3 4 5 6 7 

7*1 2 

407 
1.414213562 2.236067977 

0O*7 

0.8660254038 

701 2 
0.761594156 0.9640275801 
"70701 2 

1 2 



Entry of invalid expression 
Shows type of error committed 
Retypes invalid statement with 

caret where execution stopped 
Multi-character name (not X*Y) 

XY had not been assigned a value 

SCALAR FUNCTIONS 

Dyadic maximum 

Monadic ceiling 

Index generator function 



Empty vector 

prints as a blank line 
All scalar functions extend 

to vectors 



Relations produce 

logical (0 1) results 
Pixi 

Pi*l 2 



Conversion of X to radians 
Sin 1 
Cos X 2 

Tan 1 

Arctan 1 

Tan Arctan 12 3 4 5 6 7 

(1+7*2)*. 5 
(l-*7*2)*.5 
Tanh 1 2 
Arctanh Tanh 1 2 
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DEFINED FUNCTIONS 



vz+x f x 

[1] Z+((A>2)+J*2)*.5 

[2] 7 

3 F 4 



Header (2 args and result) 
Function body 
Close of definition 
Execution of dyadic function F 



10 

20 

[1] 
[21 



P-«-7 

Q*-(P+1)F P-l 
Q 

4x3 F 4 

VB*-G A 
B+(A>Q)-A<0 
V 
G 4 



Use of F with expressions 
as arguments 



G is the signum function 
A and B are local variables 



G 6 



[1] 
[2] 



1 
VALVE 



LI] 
C2] 
[3 J 
[4] 
[5] 
[61 
[71 



X* 6 

G X 

Vff A 

P+(A>0)-A<0 

V 

ff"6 

P 

ERROR 
T-*-H "6 

A 
VZ+FAC N;I 
Z*-l 
Jf-0 

£l:If-X+l 
*0xiJ>ff 
Z*-Zxl 
+11 
V 
fjtC 3 



Like G but has no explicit result 
P is a global variable 



H has no explicit result 

and hence produces a value 
error when used to right 
of assignment 

FAC is the factorial function 



LI becomes 3 at close of def 
Branch to O (out) or to next 

Branch to LI (that is, 3) 
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FACL3 
FACZ 5 
FACL3 
FAC15 
FACX.Z 
FACiS 
PAC13 



FAC 5 

T&.FAC+3 5 
X+FAC 3 

1 1 

1 1 

1 2 

1 2 

3 3 

1 6 

1 4 
ThFAC+0 



Set trace on lines 3 and 5 of FAC 
Trace of FAC 



Reset trace control 
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[11 
[2] 
[3] 
[4] 
[2] 
[5] 
[11 
[1] 

[1] 
[2] 
[3] 
[4] 

[5] 

[6] 



[6] 
[4.2] 

7 
[11 
[2] 
[3] 
[4] 
[4.1] 
[5] 

V 
[6] 

8 36 
4 8 
4 



VC+-M GCD N 

G*-N 

M*-M\N 

■+4xM*0 

[llff-f-M 

[H]N+G 

[ID] 

G+M 

[□] . 

G+-M GCD N 

G*-M 

M<-M\!t 

N*-G 



36 GCD 44 

VGCD 

[4.1]Af,ff 

CD3 

<?-<-« GCD S 

G+M 

»«■»!« 

->-4xM*0 
N*-G 

M,N 



3 6 GCD 44 



[11 
[2] 
[3] 
[4] 

[5] 
[6] 



[7] 



VGCD[Q]V 

G+M GCD N 

G*-U 

M*-M\S 

•*4xM*0 

N*-G 

M,N 

-*1 

VffCD 
[5] 



MECHANICS OF 
FUNCTION DEFINITION 

Greatest common divisor 

function based on the 
Euclidean algorithm 

Correction of line 1 
Resume with line 4 
Display line 1 

Display entire GCD Function 



Close of display, not close of def 

Enter line 5 

Close of definition 

Use of GCD 

4 is GCD of 36 and 44 

Reopen def (Use v and name only) 

Insert between 4 and 5 

Display entire function 



Fraction stays until close of def 

End of display 
Close of definition 

Iterations printed by 

line 5 (was line 4.1) 
Final result 
Reopen, display, and close GCD 



Line numbers have been 

reassigned as integers 
Close (Even number of 7's in all) 
Reopen definition of GCD 
Delete line 5 by linefeed 

Close definition 
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VZ+-ABC X 
ill Z«-(33xg+(i?x5)-6 

[2] [109] 

[1] Z-<-(33xgt(i?x5)-6 

/ 1/1 

[1] Z-i-(3xg) + (Tx5)-6 

C2] V 

FAC 5 
120 

) ERASE FAC 

FAC 5 
SYNTAX ERROR 

FAC 5 

A 

VZ-s-BIff N 
[1] L4:Zf-(Z,0) + 0,Z 
[2] ->-£4xff>:pZV 

Biff 3 
VALUE ERROR 
BlffCl] LA:Z+(.Z,0) + 0,Z 

A 

Z-*-l 

+1 

13 3 1 
Biff 4 

BXffCl] £1:Z«-(Z,0) + 0,Z 
A 

VBISl. l]Z-s-lV 

)SJ 
BJffCl] * 

•*i 

14 6 4 1 
VBIff[Q]V 

V Zj^BJff N 
111 '"Z*l. 

C2] £4:Z-s-(Z,0) + 0,Z 
[3] . +LAxNZpZ 
V 

SABJff-s-2 
Q+BIN 3 



A function to show line editing 

A line to be corrected 

Initiate edit of line 1 

Types line, stops ball under 9 

Slash deletes, digit inserts spaces 

Ball stops at first new 

space. Then enter ) T 
FAC still defined 

-Erase function FAC 

Function FAC no longer exists 



An (erroneous) function for 
binomial coefficients 



Suspended execution 

Assign value to Z 

Resume execution 

Binomial coefficients of order 3 

Same error (local variable Z 

does not retain its value) 

Insert line to initialize Z 
Display state indicator 
Suspended on line 1 of BIN 
Resume execution (BIN now correct) 

Display revised function 
and close definition 



Set stop on line 2 
Execute BIN 



Bin 2i 
i 



Z 
+2 



Stop due to stop control 
Display current value of Z 

Resume execution 



BIJVC2] 



Stop again on next iteration 
Resume 



BIN121 



Stop again 

Branch to (terminate) 
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INPUT AND OUTPUT 



VMU LTD RILL N;Y;X 
[1] Y+?N 
[2] Y 

[ 3 ] x+n 

[4] -+0x l X = 'S' 

[5] +\X=x/Y 

[6] ' WRONG, TRY AGAIN' 

[7] -+3V 

MULTDRILL 12 12 
2 10 
D: 

37 
WRONG, TRY AGAIN 
D: 

20 
6 7 
D: 

<S' 

VZ+ENTERTEXT 
[1] Z-<-" 
[2] D«-pZ 
[3] Z+Z, ID 
[4J -+2xD*pZ 
[5] V 

Q+ENTERTEXT 
THIS IS ALL 
CHARACTER INPUT 



THIS IS ALL CHARACTER INPUT 

ff-<-5 

'NOTE: I'iff;' IS ';\N 
NOTE: i 5 IS 1 2 3 4 5 



A multiplication drill 

pN random integers 

Print the random factors 

Keyboard input 

Stop if entry is the letter S 

Repeat if entry is correct product 

Prints if preceding branch fails 

Branch to 3 for retry 

Drill for pairs in range 1 to 12 

Indicates that keyboard entry 
is awaited 



Entry of letter S stops drill 
Example of character (D) input 
Make Z an empty vector 
D is the length of Z 
Append character keyboard entry 
Branch to 2 if length increased 
(i.e., entry was not empty) 

Keyboard 

entries 
Empty input to terminate 
Display Q 



Mixed output statement 



RECTANGULAR ARRAYS 



P«-2 3 5 7 
pP 

T*-'0H MY' 
p.T 



Dimension of P 
Character vector 



P,P 

23572357 

T,T 
OH MIOH MY 

T,P 
DOMAIN ERROR 

T,P 



Catenation 



Characters cannot be catenated 
with numbers 
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M+-2 3p23571113 
M 



2 3 5 
7 11 13 

2 4p!T 



Off M 
YOH 



BCE 
GKM 



EC 
EC 



6pM 
5 7 

5 7 
P-t-.Af 
PC3] 



11 13 
11 13 



5 

2 5 

2 3 

13 

3 

2 3 



PCI 3 53 

11 

P[l3] 

5 

P[pP] 

M[l;2] 
Ml;] 

5 

Af[l 1;3 2] 



15 
7 



A+' ABCDEFGHIJKLMNOPQ' 
AlMl 



AMU 1;3 2]] 



«Els]+15 3 12 
M 

3 12 
11 13 



Reshape to produce a 2x3 matrix 
Display of an array of rank >1 

is preceded by a blank line 



A 2x4 matrix of characters 

A matrix reshaped to a vector 
Elements in row-major order 

Indexing (third element of P) 

A vector index 

The first three elements of P 

Last element of P 

Element in row 1, column 2 of M 

Row 1 of M 

Rows 1 and 1, columns 3 2 



The alphabet to Q 
A matrix index produces 
a matrix result 



Respecifying the first row of M 
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Q+Z 15 2 4 6 

PCGJ 
5 2 11 3 7 13 

QIQ1 
5 3 4 12 6 

PC 3] 
5 

) ORIGIN 
WAS 1 

PC 3 3 
7 

P[0 1 2] 
2 3 5 

15 
12 3 4 

)0RIGIN 1 
WAS 

15 
12 3 4 5 



A permutation vector 
Permutation of P 

A new permutation 

Present index origin is 1 

Set index origin to 

First three elements of P 

Result of index generator 
begins at origin 



7-<-?3p9 
M*?3 3p9 
N+?3 3p9 
V 

7 
M 



FUNCTIONS ON ARRAYS 

Vector of 3 random integers (1-9) 
Random 3 by 3 matrix 
Random 3 by 3 matrix 



9 4 

8 1 

5 7 

N 

4 1 

7 6 

8 5 



Sum (element-by-element) 



8 13 

9 15 
10 13 



5 

7 

12 
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MTN 



Maximum 



7 9 4 
5 8 6 
9 8 7 


1 
110 



+ /V 
x/V 



10 

It 

+/Cl]M 
13 22 12 

+/L21M 



20 
20 
9 



14 13 

+ /M 
It 13 

[/M 

7 

*-<-l . 5 

+/(1 20X)*2 



O/l 2, AT 
0,07067822453 

y-t-O/0 2.JT 

0.9974949866 
Y = 10JT 



M+ . xfl 

79 123 
46 84 
84 95 

1 i 1 
111 

2 3 2 

M+.xV 
51 25 56 



81 
58 
66 



Comparison 

Sum-reduction of V 
Product- reduction 

Sum over first coordinate of M 

(down columns) 
Sum over second coordinate of M 

(over rows) 

Sum over last coordinate 
Maximum over last coordinate 

Sin squared plus Cos squared 
Sin Cos X 
(1-iCOS Jf)*2)*. 5 

An identity 



Ordinary matrix (+„x inner) 
product 



An inner product 



t . x inner product with vector 
right argument 
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V 

1 1 

K»,M5 

2 4 6 8 

12 3 4 

7 14 21 28 

V° . Si9 



10 

5 

3 5 



Outer product (times) 



Outer product 



011111111 

111111111 

000000111 
V°.xM 



An outer product of rank 3 



14 

10 

2 



18 
16 
10 



2 
14 



7 9 4 
5 8 1 
15 7 



A blank line between planes 



49 63 

35 56 

7 35 



28 

7 

49 



C-«--?10p5 

Q 

3 4 5 4 2 

+/[1]Q°. =15 

14 1 

2 im 



MIXED FUNCTIONS 

A random 10 element vector 
(range 1 to 5) 

Ith element of result is number 
of occurences of the 
value I in Q 

Ordinary transpose of M 



5 1 
8 5 
1 7 

m 



Ordinary transpose of M (monadic) 



5 1 
8 5 
1 7 
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1*2 3 4pi24 

T 



An array of rank 3 



12 3 
5 6 7 
9 10 11 



12 



13 
17 
21 



14 
18 
22 



15 
19 
23 



16 
20 
24 



3 1 2$r 



Transpose of T (dimension 
of result is 3 4 2) 



1 


13 






2 


14 






3 


15 






4 


16 






5 


17 






6 


18 






7 


19 






8 


20 






9 


21 






10 


22 






11 


23 






12 


24 

i xm 






8 


7 

1 1 2t)T 






1 


2 3 4 






17 

i5 


18 19 20 
JT<-O(0,i5>*6 
)DIGITS 4 
10 

$1 2 3o.OX 






0. 


OOOffO 1.000B0 


0. 


O00E0 


5. 


000E~1 8.660S~1 


5. 


, 774E~1 


8. 


660B~1 5. 000S 1 


1. 


, 732B0 


1. 


0OOBO 1.744£"16 


5, 


, 7 34E15 


8. 


660E~1 5.000£~1 


1. 


. 732B0 


5. 


000£ 1 "8.660B 1 


"5, 


, 774E"1 



Diagonal of M 

Diagonal section in first 
two coordinates of T 



Set number of output digits to 4 



Table of sines, cosines, and 
tangents in intervals 
of 30 degrees 
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1 4 
4 5 
1 4 


3 4 5 4 

3<t>e 

4 2 14 

~3<t>e 

2 14 3 
1 2<Kl]M 


2 
2 

4 


14 2 
14 3 
5 4 2 


7 


8 7 






5 


5 4 






1 


9 1 
'2H21M 






9 


4 7 






8 


1 5 






5 


7 1 
1 2 3<|)M 






9 


4 7 






1 


5 8 






1 
2 4 


5 7 
<t>S 
12 4 5 


4 


3 4 1 



Rotate to left by 3 places 

Rotate to right by 3 places 

Rotate columns by 

different amounts 



Rotation of rows all 
by 2 to right 



Rotation of rows 



Reversal of Q 



<t>[ 1 ]« 

15 7 
5 8 1 
7 9 4 



Reversal of M along 

first coordinate 



Reversal along last coordinate 



4 9 7 
18 5 
7 5 1 
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U 
0000100000 

U/Q 
5 

(~U)/Q 
143442142 

+ /U/Q 
5 

1 l/[l]Af 

7 9 4 
15 7 

1 1/M 

7 4 
5 1 
17 

(,W>5)/.M 
7 9 8 7 

F-<-l 10 1 
Al3 
1 2 3 
V\M 



Compression of Q by logical 

vector U 
Compression by not U 



Compression along first 
coordinate of M 



Compression along last 
coordinate 



,'M is 7 9 4 5 8 115 7 

All elements of M which exceed 5 

Expansion of iota 3 

Expansion of rows pf M 



7 9 4 

5 8 1 

1 5 7 
V\'ABC< 
ABC 

' 1011 7 7 6 
1776 

8J.1 7 7 6 
1022 

(4plO)T1776 
1 7 7 6 

(3plO)T1776 
7 7 6 

10 10T1776 
7 6 

10T1776 
6 

24 60 6011 3 25 
3805 

24 60 60T3805 
1 3 25 

2 1-1 110 
22 



Expansion of literal vector 

inserts spaces 
Base 10 value of vector 17 7 6 

Base 8 value of 17 7 6 

4 digit base 10 representation 

of number 1776 
3 digit base 10 representation 

of 1776 



Mixed base value of 1 3 25 

(time radix) 
Representation of number 3805 

in time radix 
Base 2 value 
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M 



7 9. 4 
5 8 1 
15 7 

) ORIGIN 



WAS 1 



M[2;0] 

( ,W)[(pM)j.2,0] 



) ORIGIN 1 



WAS 



Indexing of matrix in D-origin. 

Note relation to indexing of 
ravel of M 

Restore 1-origin 



2 3 5 7 11 13 

Pi 7 
4 

Pi6 
7 

Pi 4 5 6 7 
7 3-7 4 

«<-5 13 2 4 

R*-Qi\pQ 

R 

2 4 3 5 1 

em 

12 3 4 5 

A*- ' ABCDEFGHIJKLMNOPQ « 

A*-A,'RSTUVWXXZ* 

A 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 

Ax'C 
3 

J-t-Ax-'CAT' 

J 

3 1 20 
AU1 
CAT 



Index of 7 in vector P 
7 is 4th element of P 
6 does not occur in P, hence 
result is 1+pP 



A permutation vector 

R is the permutation inverse to Q 



A is the alphabet 

Rank of letter C in alphabet is 3 
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M+Z Sp'THREESHORTWORDS' 

M 



THREE 








SHORT 








WORDS 


J+-AXM 
J 






20 


8 18 


5 


5 


19 


8 15 18 


20 


23 


15 18 
AlJl 


4 


19 


THREE 








SHORT 








WORDS 


3?5 






5 1 


2 
6?5 






DOMAIN ERROR 








6?5 








A 








X+8?8 








X 






4 6 


7 2 5 


1 


8 3 


6 4 


815 
XilXl 


2 


3 7 


1 2 


3 4 5 
XII XI 


6 


7 8 


8 7 


6 5 4 


3 


2 1 




Ui-Ae'NOW 


15 


I7?£ TJAffi' 




'Ql'll+01 




00001001 1000111000 1100 iooo 




VIA 






EHIMNOSTW 








(i8)e3 7 


5 







10 1 





1 



A matrix of characters 



Ranking of M produces a matrix 



Indexing by a matrix produces 
a matrix 



Random choice of 3 out of 5 
without replacement 



A random permutation vector 

Grading of X 

Arrange in ascending order 

Arrange in descending order 

Membership 
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Appendix B 



ADVANCED EXAMPLES 



This section presents a set of examples less elementary 
than those of Appendix A. These examples are all contained 
in Workspace ADVANCEDEX of Library 1. A user may therefore 
load, use, and trace any of the functions as an aid to 
understanding their behavior. Displays of intermediate 
results may also be inserted. For example, the statement 

P-t-(P,0) + 0,P 

occurring in a function could be changed (perhaps by the use 
of line editing) to the following form: 

ch-p+cop.o+d+o.p 

Each execution of the statement will now perform as before, 
except that each of the results 0,p and P,0 and P will be 
typed out as well (in that sequence). 

Programming techniques can be learned from a similar 
study of any well-written set of functions. All of the 
workspaces of library 1 may be used as a source of functions 
for such study. 



The index origin in the workspace ADVANCEDEX is set to 



1. 





)L0AD 1 ADVANCEDEX 








ADVANCEDEX SAVED 07/20/68 28, 


,12.10 








)FNS 












AH 


ASSOC 


BIN 


COMB 


DTH 


ENTER 


F FC 


GC 


GCD 


GCV 


HI LB 


HTD 


IN 


INV INVP 


INI 


LFC 


LOOKUP 


PACK 


PALL 


PER 


PERM PO 


POL 


POLY 
) VARS 


POLYB 


RESET 


TIME 


TRUTH 


UNPACK ZERO 


DAH 


DASSOC 


DBIN 


DC 0MB 


DDTH 


DENTER 


DESCRIBE 


DF 


DFC 


DGC 


DGCD 


DGCV 


DHILB 


DHTD DIN 


DINV 


DINVP 


DIN1 


DLFC 


D LOOKUP 


DPACK 


DPALL DPER 


DPERM 


DPO 


DPOL 


DPOLY 


D POLYB 


DTI ME 


D TRUTH D UNPACK 


DZER0 


TIMER 
DESCRIBE 













EACH OF THE VARIABLES OF THIS WORKSPACE WHICH BEGINS WITH THE 
LETTER D IS THE DESCRIPTION OF THE FUNCTION WHOSE NAME IS 
OBTAINED BY REMOVING THE D. FOR FURTHER DETAILS SEE APPENDIX 
B OF THE APt\ 360 USER'S MANUAL. 



135 



DP A CK 
THE FUNCTIONS PACK AND UNPACK ILLUSTRATE THE USE OF THE 
ENCODE AND DECODE FUNCTIONS IN TRANSFORMING BETWEEN A FOUR- 
NUMBER ENCODING OF SERIAL NUMBER (1 TO 9999), MONTH, DAX, 
AND SEAR, AND A SINGLE-NUMBER ENCODING OF THE SAME DATA. 

VPACKtQlV 
V Z+PACK X 
[1] Z-t- 10000 12 31 100 i.K-1 
7 



El] 



V Z->-UNPACK X 

Z«-l+ 10000 12 31. 100 TX 
V 



P+PACK 2 314 7 17 68 

P 
86063867 

UNPACK P 
2314 7 17 68 

UNPACK PACK 2311 9 21 72 
2311 9 21 72 

PACK UNPACK 92137142 
92137142 

PACK 11311 
3000 

UNPACK 3000 
1 1 31 1 
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DEN TEE 

THE FUNCTIONS ENTER, LOOKUP, AND RESET ILLUSTRATE A METHOD 
OF CONSTRUCTING AND USING LISTS OF VARIABLE LENGTH DATA, 
REPRESENTING BACH LIST BY A VECTOR OF CHARACTERS AND A 
VECTOR OF INDICES. ENTER AND LOOKUP EACH REQUEST INPUT (BY Q) 
UNTIL AN EMPTY VECTOR (CARRIAGE RETURN ALONE) IS ENTERED, 



RESET RESETS LISTS (USE BEFORE ENTER AND LOOKUP). 
ENTER ACCEPTS SUCCESSIVE ITEMS OF NAMES AND DATA. 
LOOKUP PRINTS DATA ASSOCIATED WITH EACH NAME ENTERED. 





VENTERlUlV 




VLOOKUPimv 


V 


ENTER ;X 


V 


LOOKUP-.X-.J 


[1] 


'ENTER NAME- 1 


[1] 


' ? ' 


C2] 


A>,D 


[2] 


x*-,a 


[3] 


*0xi 0=pX 


[33 


■+0*\0=pl 


[4] 


NAMES*-NAMES,X 


[4] 


</<-( ((l+Pi)- i+pi)=pJO/i 1+pPI 


L5] 


Pl«-Pl,p NAMES 


[5] 


J+-(.NAMESLP1Z .7] ° . + i P JT]A . =X) A7 


[6] 


'ENTER DATA' 


[6] 


-K0 1 =pJ)/ 10 8 


[7] 


DATA*-DATA,B 


[7] 


-H,pU+'MORE THAN ONE SUCH NAME' 


C8] 


P2*-P2 .pDATA 


[8] 


DATAIP2W\*\-/P2Z\ +.7]] 


C9] 


1 t 


[9] 


-►I 


[10] 


■*! 


[10] 


'NO SUCH NAME' 


V 




[11] 


■*!-. 



[1] 



VRESBTlOlV 

RESET 

NAMES*rDATA+pPl<-P2*-0 



RESET 
ENTER 

ENTER NAME 

J. ARMSTRONG 

ENTER DATA 

PRESIDENT 

ESTER NAME 
H. LEVINE 
ENTER DATA 
VICE-PRESIDENT 

ENTER NAME 

LOOKUP 

9 

H. LEVINE 
VICE-PRESIDENT 

9 

L. YAVNER 
NO SUCH NAME 

9 
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din 

the functions in and ini take two arguments; the first is a 
word (i.e. , a vector) whose occurrences in the second 
argument are to be determined . the result is a vector of 
indices of the first letter of each occurrence. the 
function in determines all occurrences , whereas ini 
determines only all non-overlapping occurrences by first 
applying the function in and then suppressing all overlaps. 

VINLD1V 

7 Z+A IN B;J 
[1] «T-eU[l]=B)/ipB 
[2] «r-<-(J£l+(pB)-p4)/J 
[3] Z+(BlJ°.+~l+\pA]A,=A)/J 

V 

vjffiCDDv 
V T+-A INI B 
[1] T+A IN B 
[2] +2xJ<pT+-(~(ipT)eJ+l + ((pA) >|-/[1]( 2, l+pDpD il )/J" 



W+'THE' 

T^THE MEN THEN WENT HOME.' 

W IN T 

W INI T 

MBi4* IN 'NOWABABABABABABABA' 
8 10 12 14 16 
'ABA! INI * NOWABABABABABABABA' 
12 16 



DTRVTH 

THE FUNCTION TRUTH PRODUCES THE MATRIX OF ARGUMENTS OF THE 
TRUTH TABLE FOR N LOGICAL VARIABLES. 

VTRUTHtOlV 
7 Z-t-TRUTH N 
[1] Z<-2|L("l + i2*i« , )».*2*jy-iff 
V 

TRUTH 3 


1 
1 
Oil 
10 
10 1 
110 
111 

(TRUTH 3}+.x4>2*"l+i3 
1 2 3 4 5 67 
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DGCD 

THE FUNCTIONS GCD AND GC EACH EMPLOY THE EUCLIDEAN ALGORITHM 
TO PRODUCE THE GREATEST COMMON DIVISOR. GCD EMPLOYS TWO 
SCALAR ARGUMENTS, WHEREAS GC EMPLOYS A SINGLE ARGUMENT WHICH 
IS EXPECTED TO BE A TWO -ELEMENT VECTOR. 

THE FUNCTION GOV YIELDS THE GREATEST COMMON DIVISOR OF ALL 
ELEMENTS OF A VECTOR OF TWO OR MORE ELEMENTS. 



VGCDL01V 
V Z*-M GCD N 

Zt-M 

M*-M\N 

N-rZ 

■*0*M 
V 

7ff(7CD]7 
7 Z+GC M 

■+Q*ltM<-$Mlll ,Z*-\ IM 
7 

VGCVtniV 
7 Zi-GCV W;A 
[1] -H*pW<-Z,(A*0)/AHZ+l/W)\W 
7 



[1] 
[2] 

[33 
[4] 



[1] 



84 GCD 90 
9 GCD 84 
GC 90 84 
GCV 9 84 
GCV 90 84 105 



DBIN 

THE FUNCTION BIN PRODUCES ALL BINOMIAL COEFFICIENTS UP TO ORDER N 

VBINIQ1V 
7 Z+BIN N 

EH z*-L4to,ijr)°-!o,iir 

7 



BIN 4 

10 
110 

12 10 

13 3 1 

14 6 4 
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DPOLY 

THE FUNCTIONS POLY, POL, PO , AND POLYB EACH EVALUATE A 
POLYNOMIAL (OR POLYNOMIALS) , WHOSE COEFFICIENTS ARE 
DETERMINED BY THE FIRST ARGUMENT, AND WHOSE POINT (OB 
POINTS) OF EVALUATION IS DETERMINED BY THE SECOND ARGUMENT. 
THE COEFFICIENTS ARE IN ASCENDING ORDER OF ASSOCIATED 
POWERS. 

POLY SCALAR RIGHT ARGUMENT ONLY. 

POL SCALAR RIGHT ARGUMENT ONLY (USES INNER PRODUCT). 

POLYB SCALAR RIGHT ARGUMENT ONLY (USES BASE VALUE). 

PO APPLIES TO ARGUMENTS OF ANY RANK. THE VECTORS ALONG 

THE FIRST COORDINATE OF THE FIRST ARGUMENT ARE THE 
COEFFICIENTS OF THE POLYNOMIALS WHICH ARE EVALUATED 
FOR EACH ELEMENT OF THE SECOND ARGUMENT. 



VPOLXLUlV 
V Z+C POLY_X 
ill Z++/CxX* l+ip,C 
V 



VPOLYBiQlV 
V Z*-C POLYB X 
ill Z<-X±4>C 
V 



VPOLIUIV 
7 Z«-C POL X 
111 Z*-(X*~l+\p,C) + .xC 
V 



VP0101V 
V Z*-C PO X 
111 Z+(X° ,*~l+\lppC)+.xC 
V 
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Cf-1 2 3"* 
C POLYB 3 



(C POLY 3)A.=(C POLYB Z),(C POL 3) ,C PO 3 



C PO 1 2 3 4 5 6 
10 1*9 142 313 5B6 985 
0*-li*4)BIN 5 



1 


1 


1 




1 


1 


1 











1 


2 




3 


4 


5 














1 




3 


6 


10 



















1 


4 


10 






















1 


5 












IM 




PO ■ 


16 








1 










1 . 




2 




4 




8 


16 


32 




1 ' 




3 




9 




27 


ei 


243 




1 




4 




16 




64 


256 


1024 




1 




5 




25 




125 


625 


3125 




1 




6 




36 




216 


1296 


7776 




1 




7 




49 




343 


2401 


16807 
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DTI ME 



THE FUNCTION TIME YIELDS THE AMOUNT (IN MINUTES, SECONDS 

AND 60THS OF A SECOND) OF CPU TIME USED SINCE ITS LAST 

PREVIOUS EXECUTION, IT IS USEFUL IN MEASURING THE EXECUTION 



TIMES OF OTHER FUNCTIONS. THE VARIABLE ' 
THE VALUE OF THE CUMULATIVE CPU TIME AT 
THE FUNCTION TIME. 
VTIMElUlV 
V Z+TIME;T 
til Z*- 60 60 60 T(T+X21) -TIMER 
[2] TIMER+T 



TIMER' IS ASSIGNED 
EACH EXECUTION OF 



DCOMB 

THE FUNCTION COMB EMPLOYS RECURSIVE DEFINITION TO PRODUCE A 
21N BY 2 MATRIX OF ALL POSSIBLE PAIRS OF ELEMENTS FROM xN. 



THE FUNCTION FC SHOWS AN ALTERNATE METHOD WHICH 
SAME PAIRS BUT IN A DIFFERENT ORDER. 



YIELDS THE 



THE FUNCTION LFC EMPLOYS FC TO GENERATE LETTER PAIRS. 
VCOMBLQ1V 

V Ci-COMB N;A;B 
[1] -+Ox\N<2 

[2] -*-0xitf = 2xlpC<- 1 2 p 1 2 

[3] A*-COMB N-l 

C4] CH(pA) + Ol-l),0)p(,A),,(.\N-l)°A0,N 

7 

VFCLDlV 

7 C*-FC N;A;B 
[13 £*■( \N)o.+N p o 
C2] A*-(iN)o. + \N 
C3] C+(2,N*N)p(,B),,A 
[4] C<-$(C[2;]£ff)/C 

? 

VLFCIUIV 

V Z+LFC N 

ill Z*-'ABCDEFGHIJKLMNOPQBSTUVWXYZ'tFC Nl 
V 

TIME 
35 

TIME 
2 

COMB 4 ? c 4 LFCh 



TIME 
12 



1 


2 


AB 




1 


3 


AC 




1 


4 


AD 




2 


3 


BC 




2 


4 


BD 




3 


4 


CD 






TIME 




TIME 





8 


. 


7 
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Z*-COMB 15 

pZ 
10 5 2 

TIME 
14 



2-e-FC 15 

PZ 
105 2 

TIME 
2 9 



WE FUNCTIONS. DTH, HTD , AND AH CONCERN HEXADECIMAL NUMBERS 
LIMITED TO 8 DIGITS AND EMPLOYING THE CHARACTERS 
0123456789'i4BCfl£F. NEGATIVE NUMBERS ARE REPRESENTED IN 2'S 
COMPLEMENT FORM, WITH ANY OF THE CHARACTERS 8 THROUGH F IN 
THE LEFTMOST POSITION (OF EIGHT). LEADING ZEROS MAY BE 
OMITTED . 

DTH CONVERTS DECIMAL TO HEXADECIMAL. 
HTD CONVERTS HEXADECIMAL TO DECIMAL. 
AH ADDS HEXADECIMAL NUMBERS. 

VDTHlQlV 

V R*-DTH X 

HI i?*i( '0l234567894BCZ>£ , F' ) [ l+( 8p 16 )T*] 
V 

VHTDimv . 

V R+RTD X 

Ci] RHia-p.xyp'on.x 

L23 J?<-L(16l~l+'012 34 56 78 94BOTFF'ti?)-(2*32)xi?[l 1e> B9ABCDEF ' 
[3] ■*Hx~A/Xt.'0l23*56789ABCDBF' 
[4] S+'< 

[5] < NUMBER IS NOT HEX' 
V 

V4S[Q]V 

V B+A AH B 

[1] R*DTHiHTD A)+HTD B 
V 

Zt-DTH 1776 

Z 
Q00006F0 

HTD Z 
1776 

Z 4ff Z 
O0000OS0 

HTD Z AH Z 
3552 

HTD '000006F0' 
1776 

HTD '90000000' 
"1879048192 

HTD '00049ffFff' 
NUMBER IS NOT HEX 
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DZERO 

THE FUNCTION ZERO EMPLOYS THE METHOD OF FALSE POSITION TO 
DETERMINE TO WITHIN A TOLERANCE TOL A ROOT OF THE FUNCTION F 
LYING BETWEEN THE BOUNDS Bit] AND Bl2l. IT IS ASSUMED THAT 
F Bill AND F B[2] ARE OF OPPOSITE SIGN. THE FUNCTION F IS A 
SPECIFIC POLYNOMIAL, BUT CAN BE CHANGED TO ANY DESIRED 
FUNCTION. 

7ZffflO[Q]V 

V Z+TOL ZERO B;T 
[1] ■*Qx\TOLZ.\T+F Z->-0.5x + /B 

[2] +l,S[2l(0<T)»0<Fg]tZ 

V 



vFccnv 

V Z-rF X 
[1] Z«- "20 18 3 

7 



"5 1 PO X 



D«-;r-<-~4ti9 

~3 ~2 "10 1 2 3 4 5 

F X 
169 12 "29 "20 "3 4 7 

TIME 
119 

Q-<-R*-lE~& ZERO 2 1 
1.845121413 

TIME 
2 36 

F R 
7.141408142~7 

TIME 
2 

Q"t-Fi>i?-<-l£~10 ZERO 1 2 
1.26397094 
"l.813305062£'~ll 

TIME 
3 46 

Q*FU*R*-1E~6 ZERO 1 2 
1.263970852 
"8.51888359E"7 

TIME 
2 13 



36 145 
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DHILB 
THE FUNCTION RILB PRODUCES A HUBERT MATRIX OF ORDER N. 

VffJ£B[Q]V 
5 Z+HILB N 
[1] Z<-*"l + (lff)o„ + lff 

V 

HILB 3 



1 ■■■■;■. 

0.5 

0.3333333333 



0.5 

0. 3333333333 

0,25 



0.3333333333 

0. 25 

0.2 



DINV 

THE FUNCTIONS INV AND INVP EACH PRODUCE THE INVERSE OF THE 
MATRIX ARGUMENT SUPPLIED, EMPLOYING GAUSS-JORDAN (I.E., 
COMPLETE) ELIMINATION. INVP EMPLOYS PIVOTING AND INV DOES 
NOT. 

THE FIRST LINE APPENDS THE UNIT VECTOR 12: iff AS THE LAST 
COLUMN OF THE ARGUMENT AND THE SECOND LINE (LINE 4 IN INVP) 
PERFORMS AT EACH ITERATION ONE OF THE N COMPLETE INVERSIONS 
REQUIRED. SEE EXERCISE 1.10 OF IVERSON , A PROGRAMMING 

LANGUAGE,. WILEY, 1962. 



[1] 
Z2l 
[3] 
[4] 



[1] 
[2] 

[3] 
[4] 
[5] 
[6] 



VJWFCD3V 

Z<-INV M;I;J 

M«-tJ(l +pM)p( ,<HM),~J->-l<\I*-lipM 

M+-i$(.J ,l)$ZllM-(J*MZi±l)° .xllll ..1-t-MZl ;1*MZ1 ;1] 

+2xi 0*1-1-1-1 

Z*M;iltpM] 

Z+INVP M;I;J;K;P 

M*-*>(1 +pM)p(,IS?M),~ e r-«-l<Pf-iI-<-l+pM 

MZK,l;\pPli-MZl t K*(\MliI;ll)ir/\MZiIilll^pPl 

P+l*P,0pPCX,l]+P[l,X] 

ti+ltU.l )<t>[l ]«-(«? xM[ ;1] )<• . xM[l ; ] *■«■[! ; ]*M[1 ;1 ] 

+2 xi 0*J*-J-1 

Z+W[;4P] 



Q-HV*-rffV Mi-HILB 3 

9 "36 

"35 192 

30 "180 



M+ . xff 

1.000000000BO 
1 .421085472S 14 
4. 662936703S~15 



2.842170943B 14 

1.000000000B0 

3.197442311E~14 



30 
180 
180 



~6.039613254S_14 
"1.065814104J? 14 
l.OOOOOOOOOffO 
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DP ALL 

THE FUNCTION PALL PRODUCES THE MATRIX OF ALL PERMUTATIONS OF 
ORDER N. THE FUNCTION PERM WHICH IT USES PRODUCES THE B-TH 
PERMUTATION OF ORDER N BY A METHOD DUE TO L.J .WOODRUM. 

THE FUNCTION PER EMPLOYS RECURSIVE DEFINITION , AND PRODUCES 
ALL PERMUTATIONS BY A METHOD MUCH FASTER THAN THAT USED IN 
THE FUNCTION PALL. THE PERMUTATIONS ARE PRODUCED IN THE 
OPPOSITE ORDER. 



[1] 
[2] 
[33 
[4] 



CI] 
[2] 
[3] 
[4] 



[1] 
C2] 

[3] 
[4] 
C5] 
[6] 

m 

C8] 



VP/4£L[Q]V 

V Z*-PALL N;I 
Z+-(('.N),N)f>0 
1*1 

Z[ I ;]-<-» PERM I 
+d*( !N)>I+I+1 
V 

VPERMLUlV 

V Z*-A PERM B;I;Y 
J->-pZ-<-l + (<l>i4 )TB-1 
■*0xi0=J>I-1 

ZZY1+-ZIY1 + ZII1SZIY*-I+\A-I1 
■*2 
7 

vpbpEDDv 
v p*-per m;x;y;z 

-*Qx\M=P+- 1 1 pi 

Z*-PER M-l 

P<-\X->-0 

+0xiM<X*-Xi-l 

Y-(~(iM)e.X)\Z 

YLiXl+M 

P<-((Xx'.M-l),M)p(,P),,Y 

■*n 

V 

PALL 3 



25 



3 
2 

3 

1 

2 

1 

TIME 
1 

z*-pall ; 

TIME 
49 

Zi-PALL i 
TIME 

10 
Z+PER 5 
TIME 
12 
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DAS SO C 

THE FUNCTION ASSOC TESTS ANY PUTATIVE GROUP MULTIPLICATION 
TABLE M (ASSUMING GROUP ELEMENTS tlppM) FOR ASSOCIATIVITY 
AND YIELDS A VALUE 1 IF IT IS ASSOCIATIVE, OTHERWISE. 



V4550CCD]V 
7 Z*ASSOC M 
[1] Z<-A/,M[M;]=M[;M] 

V 

«*(a5)<|>5 5p\5 
M 



4 

5 

1 

2 

3 

TIME 
13 
ASSOC M 



TIME 

9 

Mt-0 10 0<)>M 



ASSOC M 

TIME 

10 

Af*?10 lOplO 

f>M 



10 10 



TIME 
3 
4SSGC M 

45 
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)LOAD 1 NEWS 
SAVED 10,44.08 07/12/68 

DESCRIBE 

THIS WORKSPACE PROVIDES INFORMATION ABOUT THE OPERATION AND 
USE OF APL. THE FUNCTIONS OF INTEREST TO THE USER ARE 
APLNOW, INDEX, PRINT, AND SCHEDULE. 

APLNOW TAKES AS .UTS SINGLE ARGUMENT A THREE-ELEMENT VECTOR 
REPRESENTING A DATE, AS MONTH, DAY, YEAR. APLNOW PRINTS 
NOTES ON THE STATUS OF THE APL SYSTEM; FOR INSTANCE, 
RECENTLY ADDED FEATURES, TEMPORARY RESTRICTIONS , OR ADVICE 
ON PROGRAMMING OR TERMINAL OPERATION. ONLY THOSE NOTES 

ENTERED INTO APLNOW ON OR AFTER THE DATE GIVEN AS AN 
ARGUMENT ARE PRINTED. 

INDEX TAKES NO ARGUMENT. IT PRINTS INDICES, DATES, AND THE 
FIRST FEW WORDS OF EACH NOTE IN APLNOW. 

PRINT TAKES AS ITS SINGLE ARGUMENT THE INDEX (AS INDICATED 
BY THE INDEX FUNCTION) OF A NOTE FROM APLNOW, AND PRINTS THE 
NOTE. 

SCHEDULE TAKES NO ARGUMENT. IT INDICATES THE REGULAR DAILY 
APL SCHEDULE, AND ALL ANTICIPATED DEVIATIONS FROM THE NORMAL 
SCHEDULE. 
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INTRODUCTION 

APL\ 360 consists, of a modified DOS Version 3 plus the 
APL\ 360 Supervisor and Interpreter. . The modified DOS 
appears essentially the same as the standard DOS release of 
the corresponding change level. 

DOS operating procedure, is fully described in C22-5022, 
DOS Operating Guide, and familiarity with that manual is 
assumed. The use of . APL\ 360 is fully described in APIA 36.0: 
User's Manual, and familiarity with parts 1 and 2 of that 
publication is also assumed. 

If the modified DOS is used without APL, it is operated 
as described, in C22-5022, DOS Operating Guide. When APL is 
running, an additional console is required for recording APL 
system information. The recommended device for this console 
is an IBM 27M Communications Terminal with the Interrupt 
feature. See Table 1 for details of communication 
terminals. 



DOS OPERATION 

Messages from the system . DOS system messages have not been 
changed. S and W type messages have been augmented to 
display a distinctive pattern in the. Instruction Address 
Register if a failure occurs which causes the system to 
enter the WAIT state with all interrupts disabled. 

When an S condition (CPU, Storage, or Channel. fai lure) 
occurs, the modified DOS Supervisor attempts an automatic 
recovery. If the recovery appears to be successful, a 
message of the form 

id PROB PROG MC 

is printed on SYSLOG. id identifies the partition which was 
active when the machine check occurred. If the recovery 
attempt is unsuccessful, DOS enters the WAIT state with all 
interrupts disabled and with the pattern 

X'7FFFF7* 

displayed in the IAR. 
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When the system stops, the SEREP should be run, and the 
resulting printout given to the IBM Customer Engineer. The 
I Pt procedure is required to restart the system. 

There are three types of W conditions, distinguishable 
by the pattern displayed in the IAR as well as by 
information placed in low storage: 

X'70F0F0' 

A program check occurred within the DOS or APL 
supervisor. (This is a relatively rare occurrence.) A 
storage dump should be obtained and forwarded with a copy of 
the APL Linkage Edit map and a DOS Supervisor listing to the 
APL program author. 

X'555555' 

An I/O error occurred on SYSRES which prevented a phase 
from being loaded into storage. SYSRES not in a ready 
condition is one of the possible causes. If this condition 
persists when SYSRES otherwise appears to be operational, 
regard i t as a channel or control unit failure. 

X'505050' 

A catastrophic channel or control unit failure occurred 
which was detected in channel status but did not result in a 
machine check interruption. When this happens frequently, 
the IBM Customer Engineer should be notified. The failing 
channel and unit address are placed in low storage as 
described in C22-5022, DOS Operating Guide. 



Note : On System/360 Models 65 and larger, the value 
displayed in the IAR may be 8 greater than shown above. 
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; FEATURE OR OPTION 


1050 


2740-1 


2741 


Control Unit 


1051-2 






Voltage (115 AC), Non- lock plug 


9881 


9881 


9881 


Dataset Attachment 


9114 


9114 


9114 


Dial Up 


NR 


3255 


3255 


Transmit Control 


NR 


8028 


NR 


Automatic EOB 


RPQ E27283 


bo not use 


NR 


Typamatic Keys 


NA 


NA 


8341 


Interrupt 


RPQ E27428 


RPQ F17913 


4708 


I Text Time-out Suppression 


9698 


NR 


NR 


First Printer Attachment 


4408 


NR 


NR 


Automatic Ribbon Shift Select 


1295 


NA 


NA 


Typing Table 


9705 


NR 


NR 


Printer-Keyboard 


1052-2 






API. Printing Element, PTTC/BCD 


1167988 


1167988 


1167988 


or Standard Selectric* 


NA 


1167987 


1167987 


Keys, APL Keyboard 


RPQ M40174 


RPQ M40174 


RPQ M40174 


Character Spacing, 10 per inch 


9104 


9104 


9104 


Line Feeding, 6 per inch 


9435 


9435 


9435 


Accelerated Carrier Return 


1006 


NA 


NA 


Notes. NR: feature is standard e 


quipmertt, or 


is not required. 


NA; not available (July 1 


968). 






The numbers are IBM-domes 


tic idehtifi 


cations . 


- 1 



Table 1: RECOMMENDED FEATURES AND OPTIONS FOR TERMINALS 



Job step CPU accounti nz . Partition Job Step CPU time 
accounting has been added to DOS. Whenever a job step 
terminates, a message of the form: 

id time jobname CPU cputime 

is printed on SYSL0G. The time printed to the left is the 
time of day at which the job step terminated. The CPU 
accounting printed at the completion of the (PL procedure is 
mean! ngl ess . 

Mul ti programmi ng . Multiprogramming commands are as 
described in the DOS Operating Guide. The following 
restriction should be noted. 

AN ALLOC COMMAND GIVEN WHILE APL IS ACTIVE WILL RESULT IN 
APL TERMINATION ACCOMPANIED BY A MESSAGE OF THE FOLLOWING 
FORM: 

Fl JOB APLSMPS CANCELLED DUE TO PROGRAM CHECK.. 



15H 



151 



Opera-tor commands . for the complete specifications of DOS 
operator commands, see C22-5022, DOS Operating Guide. Those 
commands which carry special restrictions or notes when used 
with APL are given in Table 2. 



COMMAND 


NOTES 


ALLOC id=nK 


Must not be given while APL is 




active, since it will cause APL to 




terminate with a program check. 


ASSGN SYSxxx,X'cuu' 


Sharing an APL library or swapping 




disk with another partition will 




degrade system performance. 


HOLD id 


This version of DOS allows 




foreground units to be pre-assigned 




during system generation and held. 


MSG id 


APL does not accept messages from 




SYS LOG. 


SET 


For accounting reasons, the time 




and date cannot be changed while 




APL is running, and care should be 




taken to ensure that the correct 




values are set prior to APL 




initiation. While APL is active. 




SET CLOCK is completely ignored, 




and SET DATE is ignored by APL. 


TIMER id 


The timer must be assigned to the 




foreground 1 partition when APL is 




initiated, otherwise APL 




initialization will terminate 




because of an illegal SVC. 



Table 2: NOTES AND RESTRICTIONS ON DOS OPERATOR COMMANDS 
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INITIATING APLX360 

APL is initiated by a series of foreground initiation 
commands entered from SYSLOG or from a card reader. A 
complete procedure is shown below. Physical unit addresses 
and storage allocation conform to the configuration given in 
APL\360: System Generation and Library Maintenance, Appendix 
B: Example System Generation. 

If an error is encountered during initialization, APL 
will print a message on SYSLOG and terminate. Details of 
these messages appear in Appendix A. 



Example initiation procedures . In SYSLOG examples, messages 
printed by DOS are upper case and those typed by the DOS 
Operator are lower case. 

Mount APL swapping and library disks (on 172 and 173). 

SYSLOG: 



BG 1I00A READY FOR COMMUNICATIONS 

BG alloc fl=210K 

BG stop 

(press 1052 REQUEST) 

AR 1I60A READY FOR COMMUNICATIONS 

AR start fl 

a) Initiation from SYSLOG: 

Fl assgn sys005,x '172 ' 
Fl assgn sys006,x*172 ' 
Fl assgn sys007,x' 173' 
Fl exec aplsmps 
Fl APL IS RUNNING 



see note 1 
see note 2 



see note 3 



see note k 



see note 5 
see note 6 



b) Initiation from the card reader. Cards in reader: 

see note >* 



ASSGN SYS005,X'172* 
ASSGN SYS006,X'172' 
ASSGN SYS007,X'173' 
EXEC APLSMPS 

SYSLOG: 

Fl read x'OOc 1 
Fl APL IS RUNNING 



see note 5 



see note 7 
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Notes : 

1. The required storage allocation may be 
pre-specified. .(See AP1A360: System Generation and 
Library Maintenance, Step. 4). If this has been 
correctly done, and the allocation has not been changed 
by the DOS operator, the alloc command is not required. 

2. If a background batch stream has been interrupted 
with a pause command so that the alloc command can be 
given, resume background processing by entering EOB 
rather than stop. 

3. This command requests initiation of the foreground 
1 partition. APL always runs in foreground 1. 

I*. Foreground logical units may be pi-e-assigned. (see 
APLA360: System Generation and Library Maintenance, 
Step 4). If the correct units for APL have been 
assigned, and the assignments have not been changed by 
the DOS operator, the assgn statements are not 
requi red. 

5. The exec aplsmps statement causes APLto be loaded 
into storage and APL initialization to begin. 

6. Indicates that APL ini ti al izati on. was successful. 
(See Appendix B for details of messages pvinted 6n 
SYS LOG). 

7. Specifies that foreground ini ti ati oh commands are 
to be read from card reader 00c. 

After the message APL IS RUNNING, the operator should 
sign on the APL recording terminal. The sign-on procedure is 
described in detail in APL\360: User's Manual. 

After connecting the recording terminal, the operator 
signs on by entering 

) 31 415.9. 

When this Is correctly entered/ APL responds with 
OPR) time date OPERATOR 

APL Is now fully initialized, and APL users can begin 
signing on. 
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THE APL\360 RECORDING TERMINAL 

Any terminal signed on with the account number 311*159, 
which is the operator's number, is the APL recording 
terminal. It is similar to any other APL terminal with the 
following exceptions: 

1. Its keyboard is normally locked. The operator must 
signal attention to unlock the keyboard, prior to 
making an entry. 

2. It is always privileged and all privileged 
commands and operations can be executed from it. 

3. Output to it cannot be cancelled by signalling 
attention. Interrupted output is retransmitted. 

it. It receives messages from APL. 

The recording terminal must be signed on and locked to 
allow other APL users to sign on. 

The recommended device for the APL recording terminal 
is an IBM 27M Communications Terminal with the Interrupt 
feature. It may be connected by dial-up data set or by a 
fixed connection. Other terminals may be used, but some 
means of signalling attention is required. 



See fable 1 for details of terminals recommended for 



APL. 



APL recognizes the operator by his account number, 
which is 314159. The first terminal signing on with this 
number becomes the recording terminal: it is therefore 
advisable to protect the operator's number with a password. 
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APIA 360 PRIVILEGED COMMANDS 

The system commands described here are privileged, and 
may be used only at a privileged terminal. The recording 
terminal is the only terminal which automatically becomes 
privileged. Like all APL system commands, these must begin 
with a right parenthesis and end with a carriage return. 
I terns enclosed in brackets are optional; all others must be 
given. The brackets are not typed when entering a command. 
I terns are separated by spaces. 



Definitions 

number Account number or public library number. 

Numbers 1 through 999 are reserved for public 
libraries. User account numbers are numbers 
1000 through 214748361*7. A user's account 
number is also his library number. 

key or lock A password of 1 to 8 alphabetic or numeric 
characters, set off from the preceding text 
by a colon. 



wsid 
user id 



Library number and workspace name, or 
workspace name alone, as required. 

Identification which is printed with the 
sign-on acknowledgement. It consists of from 
1 to 11 characters, the first of which must 
be alphabetic; the remainder alphabetic or 
numer Ic. 



port 



A number assigned to a 
Unit line position by 
generation. 



Transmission Control 
APL during system 



quota 



One less than the maximum number of stored 
workspaces a user may have at one time. 
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Privi leged Command Def ini tions . Numbered 
Table 3, System Commands, and the four 
reports (17 to 20) listed in a later section 



responses refer to 
addi t i onal troubl e 



)ADD number userid [lock] quota-adjustment 



user id or 
or add a 



account 
publ i c 



Purpose: Enroll a user, change a 
lock, adjust a quota, 
library. 

Normal response: none. 

Trouble reports: 1, 16, 17, 18, or 19. 

Notes: A password may be changed by the APL operator 
but may not be removed. If no lock is given, 
the password remains unchanged. 
The quota-adjustment is additive - an integer 
increases it by the specified amount, an 
integer preceded by a negative sign (upper 
case 2) decreases it. A quota-adjustment of 
zero leaves the quota unchanged. 
Although they must be given, the name, userid 
and quota-adjustment for a public library are 
meaningless. However, each public library 
must be added before it becomes available for 
use. 



)B0UNCE port 

Purpose: Force an ending to a user's work session. 
Normal response: A sign-off message when the forced 

sign-off is complete. 
Trouble reports: 16. 
Notes: If no response is received after several 

seconds, retry the command. There are certain 

periods during execution when a user cannot 

be forced off. 

)DELETE number 

Purpose: Remove an account number or public library 

number from the system, or delete a public 

1 i brary. 
Normal response: none. 

Trouble reports: 1, 9, 16, or DROP HIS WSS FIRST. 
Notes: All workspaces associated with the library 

must be dropped before a )DELETE command will 

be accepted. 
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)HI up to 120 characters of text 

Purpose: Deliver a message to users as they sign on. 
Normal response: none. 
Trouble reports: 16. 

Notes: )BI followed immediately by a carriage 

return deletes the previous message. 

)PA up to 120 characters of text. 

Purpose: Broadcast a message to all signed-on users. 

Normal response; none. 

Trouble reports: 16. 

Notes: A broadcast message will interrupt certain 
user operations, and so should be used only 
when an urgent message must be transmitted. 

)HIPA up to 120 characters of text. 

Purpose: Simultaneous )HI and )PA commands. 
Normal response: none. 
Trouble reports: 16. 

)L0CK number 

Purpose: Bar a user from using APL \360. 

Normal response: none. 

Trouble reports: 1, 16. 

Notes: This does not affect the locked user's 

library. When the locked user attempts to 
sign on he will receive the trouble report 
NUMBER LOCKED OUT . 

)PSI7 port 

Purpose: Privilege the terminal on the specified port. 

Normal response: none. 

Trouble reports: 16. 

Notes: A privileged terminal has access to all 
privileged system commands, and operations 
until signed off. The command has no effect 
if there is no terminal signed on the 
specified port. The privilege may be removed 
only with a )B0UNCE command. 

)UNL0CK number 

Purpose: Reinstate a previously barred user. 
Normal response: none. 
Trouble reports; 1, 16. 
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) PORTS 



List ports in use. 

response: A list of ports in use and 

corresponding account numbers and user ids. 
Trouble reports: 16. 



Purpose: 
Normal 



Trouble reports 1 through 16 are given in Table 3 and are 
discussed in detail in APL\360: User's Manual, parts 1 and 
2. 

The following additional trouble reports may be 
received at a privileged terminal. In all cases, the 
operation requested by the system command which resulted in 
the error is not performed. 
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NO SPACE 



The library disks are full. Workspaces must either 
be deleted to provide room for new saved workspaces, or 
the amount of disk space available for the APL users' 
library must be increased. 
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MAN TABLE FULL 



in the APL user 
Accounts must be 



There is not enough space 
directories to enroll more users, 
deleted, or the number of directories increased before 
new accounts can be added. 



19 LIBRARY TABLE FULL 

There is not enough space in the APL library 
directories to contain pointers to new saved 
workspaces. Workspaces must be dropped, or the number 
of directories increased before new workspaces can be 
saved. 

2 DIRECTORY ERROR 

This indicates that the library directories have 
been damaged during APL operation. They may have to be 
restored from a backup tape. 
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API. ^360 SYSTEM COMMANDS 

These commands are shown in Table 3 and described in 
APL \360: User's Manual. Additional functions or 

restrictions at a privileged terminal are noted below. 

)0FF 

) CONTINUE 

The APL Operator signs off in the same manner as 
another APL user. Users already signed on continue 
unaffected, but no further users may sign on. 

)LIB 

)SAVE 

)DR0P 

A privi leged terminal may perform these operations 
with respect to any library. A workspace stored in 
another user's library comes under his full control as 
if he had saved it himself. 

)MSG 
)MSGN 

There is no distinction between these, commands, 

since the keyboard of the recording terminal always 

remains locked after the message has been delivered. 

Messages from the operator are never preceded by the 

character R. 

)C0PY 
)PC0PY 

Copy operations may abort with unpredictable 
errors when attempted from the recording terminal. 

Passwords on saved workspaces are. inviolate and there is 
no way that even a privileged terminal can learn a password. 
If a user saves a locked workspace and then forgets the 
password, his only recourse is to drop it. 

Account passwords can be changed at a privileged 
terminal by an )ADD command, but cannot be removed. 
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Reference and Purpose 
COMMAND FORM 1 - 2 - 3 



NORMAL RESPONSE 



TROUBLE REPORTS 4 



TCI Sign on designated user and start a work session. 

)NUMBER [JCEY] ,- [TEXT]; PORT, TIME, DATE, USER; SYSTEM; [54 VED, TIME, DATE] 1 2 3 4 5 
TC2 End work session. 

)0FF [LOCK] PORT, TIME, DATE, USER CODE; TIME USED 16 

TC3 End work session and hold dial-up connection. 

)OFF HOLD [LOCK] PORT , TIME , DATE , USER CODE; TIME USED 16 

TC4 End work session and store active workspace. 

)CONTINUE [LOCK] [TIME , DATE, CO NTINUE] ; PORT, TIME, DATE, USER CODE; TIME USED 6 16 
TC5 End work session, store active workspace, and hold dial-up connection. 

)CONTINUE HOLD [LOCK] [TIME, DATE, CONTINUE] ; PORT, TIME, DATE, USER CODE; TIME USED 6 16 



6 7 8 9 



6 7 8 



WC1 Activate a clear workspace 

) CLEAR CLEAR WS 

WC2 Activate a copy of a stored workspace. 

)L0AD WSID [KEY] SA VED , TIME , DATE 
WC3 Copy a global object from a stored workspace. 

)COPY WSID [KEY] NAME .; SA VED, TIME , DATE 
WC3a Copy all global objects from a stored workspace. 

)COPY WSID [KEY] •■ SAVED, TIME, DATE 
WC4 Copy a global object from a stored workspace, protecting active workspace. 

)PCOPY WSID [KEY] NAME . S AVED , TIME, DATE; [NOT COPIED: , LIST OP OBJECTS] 6 7 
WC4a Copy all global objects from a stored workspace, protecting active workspace 

)PCOPY WSID [KEY] S A VED, TIME, DATE; [NOT COPIED: -, LIST OF OBJECTS]. 6 7 
WC5 Gather objects into a group. 

) GROUP NAME [SI NONE 

WC6 Erase global objects. 

)ERASE NAME[S] [NOT ERASED :, LIST OF OBJECTS] 

WC7 Set index origin for array operations. 

)ORIGIN INTEGER, 0-1 WAS, FORMER ORIGIN 
WC8 Set maximum for significant digits in output. 

)DIGITS INTEGER,1-16 WAS, FORMER MAXIMUM 
WC9 Set maximum width for an output line. 

)WIDTH INTEGER, 30^-130 WAS, FORMER WIDTH 
WC10 Change workspace identification. 

)WSID WSID . WAS, FORMER WSID 
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LCI Re-store a copy of the active workspace. 

)SAVE TIME, DATE, WSID 

LCla Store a copy of the active workspace. 

)SAVE WSID [LOCK] TIME, DATE 
LC2 Erase a stored workspace. 

)DR0P WSID TIME, DATE 



TROUBLE REPORT FORMS 

1 NUMBER NOT IN SYSTEM 

2 INCORRECT SIGN-ON 

3 ALREADY SIGNED ON 

4 NUMBER IN USE 

5 NUMBER LOCKED OUT 

6 NOT WITH OPEN DEFINITION 

7 WS NOT FOUND 

8 WS LOCKED 

9 OBJECT NOT FOUND 

10 WS FULL 

11 NOT GROUPED., NAME IN USE 

12 NOT SAVED, WS QUOTA USED UP 

13 NOT. SAVED, THIS WS IS WSID 

14 IMPROPER LIBRARY REFERENCE 

15 MESSAGE LOST 
INCORRECT COMMAND 
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16 

7 8 16 

10. 16 

10 16 

10 16 

10 16 

11 16 
16 
16 
16 
16 
16 



6 12 13 
6 12 13 



IQ1 List names of defined functions. 

)FNS [LETTER] FUNCTION NAMES 

IQ2 List names of global variables. 

)VARS [LETTER] " VARIABLE NAMES 
IQ3 List names of groups. 

)GRPS [LETTER] GROUP NAMES 
IQ4 List membership of designated group. 

)GRP NAME FUNCTION NAMES , VARIABLE NAMES 

IQ5 List halted functions (state indicator) . 

)SI SEQUENCE OF HALTED FUNCTIONS 

IQ6 List halted functions and associated local variables (augmented state indicator) 

)SIV SEQUENCE OF HALTED' FUNCTIONS WITH NAMES OF LOCAL VARIABLES 

IQ7 Give identification of active workspace. 

)WSID WSID 

IQ8 List names of workspaces in designated library. 

)LIB [NUMBER] NAMES OE STORED WORKSPACES 

IQ9 List ports in use and codes of connected users. 

)P0RTS PORT NUMBERS AND ASSOCIATED USER CODES 

IQ10 List port numbers associated with designated user code. 

)P0RTS CODE PORT NUMBERS 

CM1 Address text to designated port. 

)MSGN PORT [TEXT] SENT 
CM2 Address text to designated port, and lock keyboard. 

)MSG PORT [TEXT] SENT 
CM3 Address text to recording terminal (APL Operator) . 

)0PRN [TEXT] SENT 

CM4 Address text to recording terminal (APL Operator) , and lock keyboard. 

)0PR [TEXT] SENT 



14 16 
14 16 

14 16 



16 
16 
16 
16 
16 
16 
16 

14 16 
16 
16 

15 16 
15 16 
15 16 
15 16 



Notes: 1. Items in brackets are optional. 

2. KEY or LOCK: a password set off from preceding text by a colon. 

3. WSID: library number and workspace name, or workspace name alone, as required * 
4. See insert table of trouble report forms. _^ 



Table 3: APL\360 SYSTEM COMMANDS 



If. 5 



APIA 360 OPERATOR'S LOG 

There are three types of messages logged on 
recording terminal: 



the 



I. Messages i_n response fo commands or actions by the APL 
Operator . These are described in APIA 360: User's Manual, and 
in the section of this manual dealing with APIA360 
pr i vi 1 eged commands . 

2.. Messages from APL users . APL users send messages to the 
operator with either the )OPR or the )0PRN command. These 
messages have the form: 

017:g WEEN IS THE SYSTEM GOING DOWN? 
06 2: PLEASE SEND UP SOME COFFEE. 

The number preceding the colon is the number of the 
port from which the message was sent. If the character 2 is 
printed, the sender has used )OPR and left his keyboard 
locked so that he may receive a reply. If not, the user has 
used )0PRN and is not awaiting a reply. 

Any message to the operator from a user before he is 
signed on locks his keyboard, and he may not proceed with 
his sign-on until the operator has replied. 

1. Disk error las. 
OCUU=ocuu,SENSE=ser\se,CH = track 

APL will attempt to recover by retrying the disk I/O 
operation 10 times. A sense message is logged after each 
unsuccessful try. 

The code printed for o indicates the APL disk operation 
in progress when the error occurred: 

2 Swapping workspace read . 

If unrecoverable, the swapping tracks on which the 
error occurred will be abandoned, and the 
corresponding terminal will receive the message: 
CLEAR WS 

If insufficient swapping area remains, APL stops 
as described in operation 6. 
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Directory read . 

The APL Supervisor will attempt 

alternate copy of the directory. 



to 



read the 



Write into the APL library . 

If unrecoverable, the APL Supervisor stops by 
entering a program loop with all interrupts 
disabled. This only happens when there is 
something seriously wrong with the disk, and the 
IBM Customer Engineer should be notified. 

Al ternate di rectory write . 

If unrecoverable, APL stops as described in 

operation 6. 

Read from the APL library . 

If unrecoverable, the library read operation will 
be abandoned, and the initiating terminal will 
receive the message 

CLEAR WS 

Second directory read . 

APL will attempt to read the alternate copy. 

Primary directory write . 

If unrecoverable, APL stops as described in 

operation 6. 



cuu is the channel and unit address of the disk on 
which the error occurred. 

sense contains sense bytes through 3, indicating the 
type of error that occurred. 

track is the hexadecimal address of the cylinder and 
track on which the error occurred. 



Example sense message and error analysis . 

CUV = 2172 ,S£ffS£ = 00080040,Cff = 0105 



Operation: 
Device: 
Error : 
Address : 



Swapping read. 

172 

No record found. 

Cylinder 1, track 5. 
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BYTE 


BYTE 2 


Bit 


Meaning 


Bit 


Meaning 



1 
2 
3 
U 
5 
6 
7 


Command reject 
Intervention required 
Bus out check 
Equipment check 
Data check 
Overrun 

track condition 
Seek check 



1 
2 
3 
1*. 
5 
6 
7 


Unsafe 
Not used 
SERDES check 
CU tag 1 ine check 
ALU check 
Unselected status 
Not used 
Not used 


BYTE 1 


BYTE 3 


Bit 


Meaning 


Bit 


Meani ng 



1 
2 
3 
It 
5 
6 
7 


Data check In count 
Track overrun 
End of cyl inder 
Invalid sequence 
No record found 
File protected 
Missing address marker 
Overflow Incomplete 



1 
2 
3 
1* 
5 
6 
7 


Ready 

On line 

Unsafe read 

Unsafe wr i te 

Not used 

End of cyl inder 

Not used 

Seek incomplete 



Table l»: SENSE BYTE INFORMATION FOR 2311 AND 23H* DISKS 
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TERMINATING APLX360 

The foreground 1 partition containing APL may be 
cancelled whenever the DOS Operator is able to communicate 
with the DOS Attention Routine. API should be cancelled 
only after all users, including the APL Operator, have 
signed off. 

The following sequence on SYSLOG cancels APL: 

(press 1052 request) 

AR 1I60A READY FOR COMMUNICATIONS 

AR cancel fl 

AR (cob) 

Fl time APLSMPS CPU cputime 

Fl JOB APLSMPS CANCELLED DUE TO OPERATOR INTERVENTION 



OPFNS, THE OPERATOR'S WORKSPACE 

A workspace of system functions Is distributed in the 
APL Operators library. Before it can be properly used, this 
workspace must be initialized as follows: 

)LOAD OPFNS 
SAVED time date 
INITIALIZE 

The initialization function will request certain 
information and initialize the workspace. When the 
initialization has been accomplished, it should be saved 
again as follows: 

)SAVE OPFNS 
time date 

A function which describes the use of the Operator's 
workspace can be executed by loading it and entering: 

OPFNS 

The functions in the Operator's workspace may be used 
only from a privileged terminal. 
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APPENDIX A 



SYSLOG MESSAGES DURING APL INITIALIZATION 



Fl APL IS RUNNING 
Reason: 



The APL supervisor has taken control and the APL 
Operator may now sign on. 



Fl JOB APLSMPS CANCELLED DUE TO INVALID ADDRESS 

Reason: The address specified in the PHASE APLSMPS 
statement included in the APL Linkage Edit (System 
Generation Step 9) is lower than the origin of the 
foreground 1 area. 

Correction: Use an alloc command from SYSLOG to allocate 
the required foreground 1 storage. 



Fl INSUFFICIENT SWAP AREA 

Reason: The number of cylinders allocated for swapping is 

too few. 
Correction: Repeat as necessary, System Generation Steps 

10, 11, and 12. 

Fl INSUFFICIENT CORE STORAGE 

Reason: The address specified in the PHASE APLSMPS 
statement included in the APL Linkage Edit is too 
h i gh . 

Correction: Repeat System Generation Step 9. 



Fl ERROR IN DS LABEL, SYSnnn 

Reason: The disk mounted on the file assigned to SYSnnn 
does not contain the label expected by APL. Most 
of ten, the wrong disks- are mounted or the APL disks 
are incorrectly assigned. 

Correction: When this message is received during APL 
initiation immediately after a system generation, 
check and repeat as necessary. System Generation 
Steps 10, 11, and 12. In other cases, check APL 
disk mounting and assignment. 
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Fl LIBRARY DEVICES DIFFER 

Reason: APL Library disks must all be 2311's or all 
231U's. 



Fl INVALID DEVICE TYPE, SYSnnn 

Reason: SYSnnn is not assigned to a disk. 
Correction: Assign SYSnnn to the proper disk file. 



Fl OVERLAPPING LIBRARY EXTENTS 

Reason: Library extents contained in two labels on the 

same disk overlap. 
Correction: Repeat as necessary, System Generation Steps 

10, 11, and 12. 

Fl JOB APLSMPS CANCELLED DUE TO DEVICE NOT ASSIGNED 

Correction: If this message accompanies any of the 
preceding three, it can be ignored. If not, use a 
LISTIO Fl command to determine which logical units 
specified in System Generation Step 7 are not 
assi gned. 

Fl INTERVAL TIMER NOT STEPPING 
Fl PLEASE ENABLE AND SET CLOCK. 

Reason: The Interval Timer is disabled. 

Correction: Enable the timer and set the correct time of 

day with a set command in the background 

parti ti on. 
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INTRODUCTION 

Familiarity with the following publ icat ions i s assumed: 

APIA36Q: Operator's Manual 

C24-5022 DOS Operating Guide 

C2i»-5033 DOS System Generation and Maintenance 



Mini mum System Configuration 

Machine Requirements: 

2040 CPU. 

256k bytes of main storage. 

Timer feature. 

Storage protection feature. 

Universal instruction set. 

Multiplexor channel. 

One selector channel. 

One card reader. 

One card punch. 

One printer. 

One 1052 Printer keyboard. 

Three 2311 Disk Storage Drives, or One 

231i» Direct Access Storage Facility. 
One 2702 or 2703 Transmission Control Unit. 
One 2if00-ser1es 9 track magnetic tape unit. 

Recommended terminal devices are described in Table 1. 

Terminals may be connected either by Western Electric 
103A2 (or equivalent) dial-up data-sets, by IBM Limited 
Distance Four Wire Modems, or by leased line, modems such as 
WTC 3976 and Western Electric 103F2. NOn dial-up terminals 



FEATURE OR OPTION 


1050 


2740-1 


2741 


Control Unit 


1051-2 






Voltage (115 AC), Non-lock plug 


9881 


9881 


9881 


Dataset Attachment 


9114 


9114 


9114 


Dial Up 


NR 


3255 


3255 


Transmit Control 


NR 


8028 


NR 


Automatic EOB 


RPQ E27283 


Do not use 


NR 


Typamatic Keys 


NA 


NA 


8341 


Interrupt 


RPQ E27428 


RPQ F17913 


4708 


Text Time-out Suppression 


9698 


NR 


NR 


First Printer Attachment 


4408 


NR 


NR 


Automatic Ribbon Shift Select 


1295 


NA 


NA 


Typing Table 


9705 


NR 


NR 


Printer-Keyboard 


1052-2 






APL Printing Element, PTTC/BCD 


1167988 


1167988 


1167988 


or Standard Selectrico 


NA 


1167987 


1167987 


Keys, APL Keyboard 


RPQ M40174 


RPQ M40174 


RPQ M40174 


Character Spacing, 10 per inch 


9104 


9104 


9104 


Line Feeding, 6 per inch 


9435 


9435 


9435 


Accelerated Carrier Return 


1006 


NA 


NA 


Notes. NR: feature is standard equipment, or 


is not required. 


NA: not available (July 1968). 






The numbers are IBM-domestic identifications. 





Table 1: 



RECOMMENDED FEATURES AND OPTIONS FOR TERMINALS 



require an interrupt facility. 
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System resources used by APL\3fiO, while active: 

Approximately 200,000 bytes of main storage. 

A minimum of one 2311 (or 23H) Disk Storage Drive. 

A minimum of one 2702 line position. 

Modifications to DOS have been confined to the DOS core 
resident supervisor, program number 360N-CL-i»53, in such a 
way as to maintain compatibility with DOS Version 3 if the 
supervisor is generated as described in this manual. The 
following areas are affected: 



Old and new PSW areas of prefix storage. 

Diagnostic scanout area. 

General Cancel. 

General Exi t. 

Communications Region. 

General Entry. 

Channel Scheduler. 

Start I/O Routine. 

I/O Interrupt Routine. 

Error Recovery Exits. 

Fetch Subroutine. 

SVC Interrupt Routines. 

Program Check Interrupt Routine. 

Constants and Equates. 
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THE APIA360 SYSTEM GENERATION PROCEDURE 

The procedure required to generate an operational 
system is similar to the procedure described in C24-5033, 
DOS System Generation and Maintenance. All of the steps 
below must be completed before APL can be fully operational, 
and they must be performed in the order shown. 

Separate maintenance and operational SYSRES volumes may 
be created as described in DOS System Generation and 
Maintenance. The source and relocatable modules listed in 
Appendix A may be deleted from the Relocatable and Source 
Statement Libraries on the operational pack only. 

Steps required to. generate HQ£ ajjd. A£L. 

1. Restore the distributed system tape to a 

system residence disk. 

2. I PL the restored system. 

3. Initialize the SYSRES label cylinder. 

i». Assemble and catalog the DOS supervisor. 

5. Assemble and catalog the APL configuration. 

6. Estimate APL swapping and storage requirements. 

7. Assemble and catalog APL disk parameters. 

8. Linkage edit the APL utility program. 

9. Linkage edit APL. 

10. Label APL swapping and library disks. 

11. Restore the distributed APL library. 

12. Initiate APL. 

13. Condense all libraries. 



A complete example system generation is 
Appendix B. 



shown in 
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Step 1 : Restore the distributed system tape to a system 
residence disk . 

This procedure is described in C2it-5033, DOS System 
Generation and Maintenance, (about page 20). 

The distribution tape appears as follows: 

I PL 

Initialize disk program 

Tape mark 

I PL 

Restore program 

File identification record 

File label information 

APL and DOS System 

Tape mark 

Tape mark 

This step consists of 2 parts: initializing the SYSRES 
disk or bypassing the initialization, and restoring the 
system to disk. BPS error messages are summarized in 
Appendix C. 

BPS control card parameters. 



yy 

ddd 
cuu 
Dd 

fz 



year, 00 to 99 decimal. 

day of the year, 001 to 366 decimal. 

hexadecimal I/O channel and unit address. 

Dl for 2311 disks, 

D3 for 2314 disks. 

T2 for 9 track tape, 

T1,X'90' for 7 track tape. 



Initial I ze the SYSRES volume . 



A DOS SYSRES must have the VTOC on cylinder 199. 
Either the BPS Initialize Disk program supplied on the 
distributed system tape, or DASDI may be used. The 
following procedure is required when the BPS program is 
used: 

a) Place the following cards in the card reader: 



// JOB INTDSK 

// DATE yyddd 

// ASSGN SYSOPT,X'cuu',Dd 

// ASSGN SYS LOG, X' cuu', CI 

// ASSGN SYSLS^X'cuu^Ll 

// EXEC 

// UID IA 

// VTOC STRTADR=(0199000),EXTENT=(10> 

VOLIAPLSYS 

// END 



(Disk to be initialized) 
(1052 printer keyboard) 
(Printer) 
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b) Set the address of the tape drive containing the 
distributed system tape on the CPU load unit switches. 

c) Press LOAD. 

d) When the WAIT light comes on, press START and EOF 
on the card reader. 

e) The message "EOJ" will be printed on the 1052 when 
the initialization is complete. 

Alternative: Bypass SYSRES initial ization . 

If the disk has been previously initialized, the 
Initialize Disk function on the distributed system tape can 
be bypassed as follows: 

a) Place the following cards in the card reader: 

// JOB INTDSK 

// DATE yyddd 

// ASSGN SYSLOG,X'cuu',Cl (1052 printer keyboard) 

// ASSGN SYSIPT,X'cuu\Tz (Distribution tape) 

// FILES SYSIPT,1 

b) Set the address of the system tape on the CPU load 
unit switches. 

c) Press LOAD. 

d) When the WAIT light comes on, press START and EOF 
on the card reader. 

e) The tape will space, and the following message will 
appear on SYSL0G: 

000C 
IjOOOA 
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Restore ijifi distributed A£L system &a sLLsJi. 

After initializing the disk, or bypassing the 
Initialize function: 

a) Do not rewind the distribution tape. 

b) Place the following cards in the card reader: 

// JOB DISRST 

// DATE yyddd 

// ASSGN SYS400,X'cuu',Dd (Initialized disk) 

// ASSGN SYSLST,X'cuu',Ll (Printer) 

// ASSGN SYSLOG/X'cuu^Cl (1052 printer keyboard) 

// ASSGN SYS002,X'cuu 1 ,Tz (2nd reel, 2311* sysgen only) 

// EXEC 

c) IPL the distributed system tape. 

d) When the WAIT light comes on, press START and EOF 
on the card reader. 

Step 2 : IPL the restored system . 

Since the distributed system contains no physical or 
logical unit blocks, these must be added during the IPL 
procedure with ADD and ASSGN statements. This procedure is 
described in both C24-5033, DOS System Generation and 
Maintenance, and in C24-5022, DOS Operating Guide. 

Step 3 : Initialize the SYSRES label cylinder . 

The distributed system contains no standard labels, arid 
these must be placed on SYSRES by the procedure described in 
C24-5033, DOS System Generation and Maintenance. 

Step 4 : Assemble and Catalog the DOS Supervisor 

This step creates a DOS supervisor which will support 
APL on a particular system configuration. A program 
consisting of a sequence of macro calls is assembled to 
obtain a relocatable object deck. This deck is then link 
edited and catalogued In the Core Image Library. 

DOS Supervisor Macros are described in detail in 024-5033, 
DOS System Generation and Maintenance. APL requires that 
the DOS supervisor have the specific parameter values shown 
in Table 2. Parameter values which are not shown may be 
specified as described in DOS System Generation and 
Mai ntenance. 
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MACRO 


REQUIRED PARAMETER VALUES 


SUPVR 


SYSTEM =DISK, 
MPS=YES, 
TP=APL, 
MICR=N0 


C0NFG 


SP=YES, 
DEC=YES, 
FP=YES, 
TIMER=YES 


STDJC 


All parameters are optional 


FOPT 


IT=F1, 

PC=YES, 

CCHAIN=YES, 

DASDFP=N0, 

SKSEP=N0, 

CE=N0 


PIOCS 


SELCH=YES, 
BMPX=N0 


ALLOC 


See note a 


I0TAB 


All parameters are optional 


DVCGEN 


See note b 


ASSGN 


See note c 


HOLD 


See note d 


SEND 


X'2800' required for a 10k Supervisor. (A 
larger supervisor may be generated 
if des i red. ) 



Table 2: REQUIRED DOS SUPERVISOR PARAMETER VALUES 
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Notes lc Ta ble 2: 

a. ALLOC Fl=nk,F2=mK 



Storage 
controlled in 
(See C2U-5022, 
often ease APL 
is pre-set to 
determine the 



allocation is optional, and may be 
the usual way by the machine operator. 
DOS Operating Guide.) However, it will 
initiation if the foreground 1 partition 
the size required. The calculations to 
storage allocation required for APL are 



described in Step 6. 

b. DVCGEN 

DVCGEN calls for 2702 or 2703 lines are not 
required for APL, since these are included in the APL 
configuration. 

c. ASSGN 

The ASSGN macro has been modified so that logical 
units belonging to a foreground partition may be 
pre-assigned. 

Example: ASSGN SYS00<t.,X' 1 70'., Fl 

The partition (Fl, F2 or BG) is included following the 
physical unit designation. 

APL\360 library files must not be assigned to SYSOOi* or 
SYS00S. 

d. HOLD Fl (and/or HOLD F2) 

This macro sets the "HOLD bit" in the appropriate 
PI B. This is particularly useful when logical units 
within foreground partitions are initially assigned, 
since the assignments will be held when, the partition 
terminates or is cancelled. The "HOLD" can, of course, 
be overridden by the Machine Operator with a RELSE 
command. (See C2i*-5022, DOS Operating Guide.) 



DOS Supervisor Assembly Diagnostics . These diagnostics fol- 
lowing the Supervisor assembly may be ignored: 

IJQ0lf6 AT LEAST ONE RELOCATABLE Y-TYPE CONSTANT IN 

ASSEMBLY 
IJQ037 MNOTE STATEMENT 
IJQOM UNDECLARED VARIABLE SYMBOL 
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The DOS supervi sor 1 i nk edi t . The relocatable object deck 
obtained from the assembly of the DOS Supervisor must be 
link edited as described in C24-5033, DOS System Generation 
and Maintenance. 



Distributed J20_S_ supervisor , 
assemble the supervisor 
distributed system tape. 



The following deck was used to 
which is contained on the 



// 



EXEC ASSEMBLY 

SUPVR SYSTEM=DISK,MPS=YES,TP=APL 

CONFG MODEL=50,SP=YES,DEC=YES,FP=YES,TIMER=YES 

STDJC DUMP=N0 

FOPT 0C=YES, IT=F1,PC=YES,TEB=10,CCHAIN=YES,CE=NO 

PIOCS SELCH=YES,TAPE=7 

I0TAB BGPGR=25,F1PGR=10,JIB=20,CHANQ=25, IODEV=50 

SEND X'2800' 

END 



/* 



Step 5: The APL\360 Configuration 



A program consisting of a sequence of configuration 
macros must be assembled to obtain a relocatable object 
deck, which must be catalogued in the Relocatable Library. 
This program tailors APL to 
determining the following: 



particular system by 



1. The device addresses 
be used by APLX360. 



of all 2702 or 2703 lines to 



2. The amount of core storage required. 

3. The size of the swap area on disk. 



The 



APL configuration will normally assemble without 
error. If, however, an APLDEV statement for a device 
address greater than X'7F* has been included, the following 
ASSEMBLER diagnostic will appear spuriously: 

DATA ITEM TOO LARGE 
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OPERATION 


OPERAND 


COMMENT 


APLSCONF 


DIRS=d 
(DIRS=11) 

INC0RE=i 
(INC0RE=3) 

C0PIES=c 
(COPIES=10) 


The number d should be prime. It 
specifies tire number of user 
directories in the APL library. 
Each holds about 400 users and 
requires ~21 tracks (2311) or 10 
tracks (2314). 

Specifies the number of APL users 
in storage concurrently (minimum of 
2). Each uses 36,864 bytes. 

Specifies the number of concurrent 
copy operations allowed; further 
requests are deferred. This value 
affects the amount of disk swapping 
area required. 


APLDEV 


X'uu' 

(TYPE=AMBIG) 
TYPE=1050 
TYPE=2741 
TYPE=TS41 

SAD=SAD0 

(SAD=SAD1) 

SAD=SAD2 

SAD =S AD 3 


APLDEV must be called once for each 
2702 or 2703 address, in ascending 
order by device address. X'uu' is 
the device address of the 2702/3 
line on the multiplexor channel. 

Specifies the type of device on 
2702/3 address X'uu'. TYPE=AMBIG 
is required for a dial-up device. 
For a fixed connection, the correct 
type must be specified as indicated 
(TS41 denotes a 2741 with PTTC/EBCD 
keyboard; 2741 denotes standard 
Sel ectri c). 

Specifies the terminal control 
address wired to the corresponding 
2702 line. Field Engineers can 
supply this data. The SAD 
specified for a 2703 is irrelevant. 


APLSEND 


none 


Must follow the last call of APLDEV 
and precede the END card. 


Note: A number must be substituted for each parameter shown 
.as a lowercase letter. In other cases, alj of the possible 
alternatives are shown. The default values appear in 
parentheses. 



Table 3: APL CONFIGURATION MACROS 
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When a configuration deck is satisfactorily assembled, 
the relocatable object deck is catalogued in the Relocatable 
Library by the following job: 

// JOB CATCONF 
// EXEC MAI NT 

relocatable object deck is placed here 

/* 



Step 6 : Estimating APL Swapping and Storage Requirements . 

Swappi ng reaui rements . The disk area reserved for APL 
swapping must be large enough to contain the maximum number 
of active workspaces possible in a particular system 
configuration. This number is equal to: 

The number of APLDEV calls, plus the value specified for 
COPIES, plus two, minus the value specified for INCORE. (See 
the parameters to the APLSCONF macro. Table 3.) 

Each active workspace requires 10 2311 tracks or 5 2314 
tracks. The total number of tracks required is then the 
number of workspace areas required, multiplied by the 
appropriate number of tracks per workspace. 

Note : It is advisable to allow one or two extra workspaces, 
since a set of tracks for a workspace in the swapping area 
which contains a flagged bad track will be abandoned. 

Core storage reaui rements . The APL supervisor and 
interpreter require 72000 bytes. In addition, 36864 bytes 
are required for each user in core (INC0RE=c), and 600 bytes 
for each 2702 or 2703 line (i.e. APLDEV statement). The 
total must be rounded up to the next multiple of 2048 for 
storage protection block alignment. The value required in 
an alloc statement (see Step 4) is then the total storage 
required by APL divided by 1024. 

The corresponding value specified in the PHASE APLSMPS 
statement (see Step 9) will be the machine core size in 
multiples of 1024 minus the storage required by APL. 



187 



Step 



Assemble and Catalog APL Disk Parameters 



APIA360 determines the physical addresses, device 
types, and extents of its swapping and library files during 
initialization. Two items of information are required for 
each file: the logical unit number and the text of the 
Format 1 label. This information is provided by a 
relocatable object deck obtained by assembling a sequence of 
disk parameter macros. The object deck must be catalogued 
in the Relocatable Library. 



The sequence of APL disk 
f o rm : 



parameter macros has the following 



SWAP APLDS n,'swap file label 1 (note a) 

LIB APLDS o, 'first library label 1 (note b) 

APLDS p, 'second library label 1 (note c) 



AP1DI.SK 
END 



(note d) 



Nptes: 

In the above example, n, o and p denote the logical 
unit numbers to which the corresponding devices will be 
assigned prior to APL\360 Initiation. The quoted field 
corresponds to the text of the Format 1 label which will be 
written in the VTOC of the corresponding disk pack. The text 
of this information must .. contain no more than kk 
characters, and must be identical to the text of the Format 
1 labels written on the disk pack which will be assigned to 
the specified logical unit. 



a. The first call of APLDS must have the identifier 
SWAP, and the text must correspond to the label written 
on the swapping pack. Only one swap file is allowed. 

b. The second call of APLDS must have the identifier 
LIB. The APL\360 user directories are written at the 
beginning of this file. It is advisable to place this 
file on a different physical device from the swap file. 
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Step 7 Notes, cont. 



c When the APL library becomes too large for one 
pack, additional calls of APLDS are included following 
the LIB APLDS statement to define additional files. 
These additional calls must not have identifiers. The 
number of files containing the APL\360 library is 
1 imited to 20. 



d. The APLDISK macro must follow 
APLDS. 



the last call of 



When the disk parameters have been successfully 
assembled, the relocatable object deck is catalogued in the 
Relocatable Library by the following job: 

// JOB DPARS 

// EXEC MAI NT 

relocatable object deck goes here 

/* 

/& 

Step 8 : Linkage Edit the APL Utility Program 

The APLV360 Utility program can now be link edited as 
follows: 

// JOB UTILLINK LINK EDIT APL UTILITY 
/■/ OPTION LINK,CATAL 

INCLUDE APLSUTIL 
// EXEC LNKEDT 
/& 
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Step 



Linkage Edit APL 

The following job will linkage edit 
it in the Core Image Library-: 

LINK EDIT APL 



APL and catalogue 



// JOB APLLINK 
// EXEC MAI NT 

DELETC APLS.ALL 

CONDS CL 
/* 
// OPTION LINK,CATAL 

INCLUDE 

PHASE APLSMPS,F+xxK see note 

INCLUDE APLSLINK 
/* 

// EXEC LNKEDT 
/& 

Note : The statement PHASE APLSMPS,F+xxK names the core 
image phase of APL and specifies the location in storage 
where it will be loaded. The value to be substituted for xx 
should have been determined in Step 6 (Estimating APL 
Swapping and Storage Requirements). 

APL Link Edit Messages . These diagnostics following the APL 
storage map may be ignored: 

* UNREFERENCED SYMBOLS 

POSSIBLE INVALID ENTRY POINT DUPLICATION IN INPUT 

CONTROL SECTIONS OF ZERO LENGTH IN INPUT 

Oil UNRESOLVED ADDRESS CONSTANTS (The number may vary) 
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Step 10 : Label APL Swapping and Library Disks 

During APL Initialization, the foregound 1 logical 
units specified in the disk parameters assembly are searched 
for the associ-ated Format 1 labels. These labels must be 
written on the proper packs by a program which is supplied 
in the Relocatable Library, and which must be link edited as 
fol lows : 

a) 2311 Systems 

// JOB DASDI LBL 

// OPTION LINK,CATAL 

INCLUDE APLL2311 
// EXEC LNKEDT 
/& 

b) 2314 Systems 

// JOB DASDI LBL 

// OPTION LINK,CATAL 

INCLUDE APLL23U 
// EXEC LNKEDT 
/& 

A set of control cards of the following form is 
required for each label to be written: 

// ASSGN SYSnnn, X'cuu 1 

//DLBL LBLDTF,'file identi fi cati on', 99/365 

// EXTENT SYSnnn, serial, 1, 1, f i rst-track,number-of-tracks 

// EXEC DASDI LBL 

The DLBL and EXTENT statements are described in detail 
in C2U-5022, DOS Operating Guide. 



Notes : 



1. SYSnnn on an EXTENT statement must be the same as 
SYSnnn on the preceding ASSGN statement. 
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Step 10 Notes, cont. 



2. The first-track parameter of the EXTENT statement 
must correspond to track zero of some cylinder. 
(Tracks are counted from cylinder zero, track zero. 
Cylinder 150, track on a 2311 is track 1500, on a 
2314 it is track 3000. In general, the track number is 
computed from the track address by the formula 
TN+H+CxN, where TN, is the track number, X is the head 
part of the track address, C is the cylinder, and il?=lo 
for 2311's and ff=20 for 231i»'s.) 



3. The 
statement 
cyl inders. 



number-of-tracks 
must represent 



parameter of 
an integral 



the EXTENT 
number of 



Step 11 : Restore the Distributed APL Library 

The APL utility program is used to create the initial 
set of library directories and to restore the distributed 
library to the library disks as follows: 

Mount the distributed library tape and then run the 
following job In the background partition: 

// JOB CREATE APL LIBRARY 

ALLOC F1=0K,F2=0K 

// ASSGN SYSOO^X'cuu' Distributed library tape. 

// ASSGN SYSnnn,X'cuu' Library disks. 



//EXEC APLUTIL 

CREATE 

ACCTG 1 

/* 

ALLOC Fl=nK,F2=mK 

/& 



(Standard settings from step h) 



Note : The long accounting operation is not required (see 
APL\360: Library Maintenance) but will list all workspaces 
contained on the library disks, verifying that the 
directories have been properly created and the distributed 
library restored. 

When this Job completes successfully, the distributed 
library has been restored to disk. For details of the 
contents of this library, see APLX360: User's Manual, Part 
U. 
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Step 12 : initate APL . 

When this point is reached, a complete APL system 
generation has been performed. The newly generated system 
should now be tested by initiating APL\360 with a sequence 
of SYSLOG operations of the following form: 

BG alloc f 1=214K (amount determined in Step 6) 

BG stop 

(press 1052 request) 

AR 1I60A READY FOR COMMUNICATIONS 

AR start fl 

Fl assgn sysnnn,x'cuu' 

Fl exec aplsmps 

Note : One assgn statement is required for each logical unit 
specified in the disk parameters assembly. Both the logical 
unit assignments and the storage allocation can be preset 
when the DOS supervisor is assembled. If this has been 
correctly done and the DOS operator has not changed any of 
the specifications, then the alloc and assgn commands are 
not required. 

nnn is the logical unit number specified in the APLDS 
call, and 

cuu is the channel and unit address of the disk on 
which the pack bearing the associated Format 1 label is 
mounted. 

If the storage allocation and load address are correct, 
APL will load into the foreground 1 partition, initialize 
the swap area, and wait for the APL operator to sign on. The 
significance of messages printed on SYSLOG during APL 
initialization is described in APLX360: Operator's Manual, 
Appendix A. Several seconds will elapse after the statement 
exec aplsmps until the message APL IS RUNNING is printed. 
During this time, the swapping disk is being initialized and 
checked for bad tracks. 
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At this point, the System/360 should appear idle except 
for the interval timer (seen on the console of some models) 
wh-ich should be positive and cycling. The APL Operator 
should attempt to sign on (after establishing a connection 
if his terminal is dial-up) by entering: 



)314159 

If the newly generated system is operating properly, 
APL\360 will acknowledge the sign-on of the operator as 
follows: 

OPR) time date OPERATOR 

The keyboard of the APL\360 operator's terminal remains 
locked unless attention is signalled. 

The APL Operator may now begin adding users to the 
system. If the APL Operator can successfully sign on, the 
system has probably been correctly generated. 

A small test function contained in the workspace 
OPFNS can be executed from the operator's terminal as 
follows: 

)LOAD OPFNS 
SAVED time date 
INITIALIZE 



This defined function will give the operator a series 
of instructions, allowing him to initialize the workspace 
OPFNS which provides several ut i 1 ity functions. 

The APL Operator should examine the contents of public 
library 1, to which the distribution library should have 
been restored. He can do th i s with the command: 

)LIB 1 

which will cause a list of the workspaces in public 
library 1 to be printed. 
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Some c ommo n problems : 

The system enters a tight loop immediately after the 
message APL IS RUNNING. 

- Check Step 11. 

- Have a Customer Engineer verify that the proper 
condition code is being set after a SIO 
instruction to the Transmission Control Unit. 

If the Transmission Control is control unit 
X'80 1 or above, verify that the System/360 has 
extended bump storage. 

The telephones attached to the Transmission Control 
Unit will not answer. 

- Ensure that the data-sets have power and are in 
the auto-answer mode. 

Verify that the proper SAD commands were 
specified in Step 5. 

A 271*1 keyboard repeatedly unlocks immediately after 
the APL operator enters )314159. 

- Ensure that the first character entered is ) on 
the APL keyboard. 

Verify that the Transmission Control is at a 
recent Engineering Change level. 

- Try another 2741. 



Step 13 : Condense All Libraries 

At this point, a backup copy of the SYSRES disk should 
be created. 



If separate maintenance and operational SYSRES packs 
are to be maintained, the modules listed in Appendix A may 
be deleted from the operational pack. The following job will 
delete the label writing program from the Core Image Library 
and condense all libraries: 



// JOB CONDENSE ALL LIBRARIES 
// EXEC MAI NT 

DELETC DASDI LBL 

CONDS CL,RL,SL 
/* 
/& 
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SOME SYSTEM MAINTENANCE NOTES 

DOS Maintenance . DOS may be maintained in the usual fashion 
except that: 

DOS SYSTEM GENERATION MACROS MAY NOT BE REPLACED WITH 
STANDARD DOS UPDATES. THEY MUST BE, REPLACED WITH DOS/APL 
UPDATES. 



APL Library Disks . The number and organization of APL 
library disks may be changed at any time by the following 
procedure: 

a) Use the APL Utility Program to DUMP all libraries 
to tape. 

b) Use DASDILBL to relabel the library and/or swap 
packs (This must be done to change extents). 

- See system generation Step 10. 

c) If the number of packs. or data-sets is to be 
changed, perform system generation Steps 7, 8, 9, and 
10. 

d) DISKFMT all library packs, and RESTORE the tape 
dumped in step a) above. 



The number af. directories may be changed as follows: 

a) DUMP all libraries to tape. 

b) Perform system generation Steps S, 8, and 9. Or, 

If the library disks are to be reorganized as well, 
perform system generation Steps 5, 7, 8, 9, and 10. 

c) Restore the tapes dumped in Step a) above by using 
a CREATE Utility program operation. 
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APL\360 LIBRARY MAINTENANCE 

Off-line maintenance of the APL library is performed by 
the APL Utility Program, which provides the following 
functions: 

Library disk formatting. 

Copying workspaces from disk to tape. 

Copying workspaces from tape to disk. 

Printing accounting information. 

Creating APL library disks. 

The major APL Utility error messages are given in 
Appendix D. 

Note : The APL Utility Program must not be used while APL is 
running. 

APL Utility I/O assignments . SYSOOi* and SYS005 must be 
assigned to the unit(s) on which dump or restore tapes will 
be mounted. The Utility opens SYSOCt at the beginning of 
each function requiring magnetic tape, and alternates 
between SYSOOft and SYS005 at end-of-volume. 

All APL library disks must be assigned to the logical 
unit numbers specified in the APL Disk Parameters assembly 
(see system generation Steps 7 through 11.) 

// ASSGN cards required by the Utility on a specific 
configuration may be found in Appendix B, Step 11. 

APL Utility. Program control cards . Utility functions are 
specified by control cards (shown in Table k) which contain 
a function name and perhaps a parameter. Parameters may not 
be omitted. The function name and parameter, if any, must 
be separated by at least one blank, but may appear anywhere 
on the card. 
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API. UTI UTY FUNCTIONS 



DISKFMT - Format a. 1 ibrarv disk . A library disk must be 
formatted (after it has been labelled) before APL libraries 
can be written -on it. The parameter, a number, specifies 
which disk is to be formatted. The library APLDS statements 
in the APL Disk Parameters assembly (see system generation 
Step 7), are numbered zero through k-1, beginning with the 
call labelled LIB. 

Note : DISKFMT will destroy all information in the extent to 
be formatted. 

DUMP - Dump all libraries lo. tape . All workspaces are 
written on tape, preceded by the library directories. All 
accounting information and information pertaining to 
workspaces is retained. The tape to be written on is first 
checked for unexpired labels, and if the file is accepted, 
header labels are written. At end-of-volume and 
end-of-file, the file name (APL LIBRARY DUMP), reel sequence 
number, and creation date are printed on SYSLOG. 

The parameter required on the DUMP control card 
specifies the maximum tape record length. The recommended 
value is 10000. The minimum value is 500. 

SELDUMP - Dump selected workspaces Jta Xaas.- The selective 
dump operation writes on tape only those workspaces which 
are selected by cards which follow the SELDUMP statement and 
which precede an END statement. These cards have the 
following form: 



account 



wsname 



account 



library number, right 
columns 1-10. 



justified in card 



wsname - name of the workspace to be selected, 
beginning in card column 16. If the 
workspace name is omitted, all 
workspaces from the selected library are 
dumped. The last workspace selection 
card must be followed by an END card. 

The parameter which must be specified on the SELDUMP 
control card specifies the maximum tape record length. The 
recommended maximum length is 10000. 
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RESTORE - Restore libraries lo_ disk. Libraries written on 

tape by a DUMP operation are restored to the library disks, 

completely replacing their contents. If the tapes were 

dumped by a system with a different library configuration 

that that which is to restore them, a CREATE operation may 
be required. 

Since the available storage on the library disks 
becomes fragmented, it is desirable to perform a DUMP 
followed by a RESTORE ocassionally to condense the active 
storage and consolidate the available space. 



SELREST - Store workspaces from tape . Unlike a RESTORE 



function, SELREST does 
disks. Rather, the wor 
libraries which al read 
analogous to the )SAVE 
which they were dumped 
which already contains 
replace it. The tapes 
usually obtained by 
functions is useful fo 
systems and for reco 
di sks 



not completely replace the library 

kspaces read from tape are stored in 

y exist on the disks, in a manner 

command, to the library numbers from 

A workspace restored to a library 

a workspace with the same name will 

restored by SELREST operations are 

a selective dump. This pair of 

r exchanging workspaces between APL 

vering lost workspaces from backup 



ACCTG - Print accounting . The parameter must be (short 
accounting) or 1 (long accounting). 

A short accounting prints a summary of cumulative 
connect time, cumulative CPU time, total workspaces saved, 
tracks occupied by workspaces, and the quota for each user. 
In addition to this information, the long accounting prints 
the name, account number of the saver, and disk location of 
all workspaces. 

CREATE - Create an A£L 1 ibrarv . The CREATE function is 
required when the number of directories contained on a 
library dump tape does not agree with the number expected by 
the system, and is normally used to restore the APL 
libraries after the number of directories has been changed. 

The CREATE function formats all library packs, converts 
the directories on tape to a proper set on disk, and then 
restores the workspaces. 
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VERIFY " Verify library disk condition . The parameter 
specifies a library file In the same manner as the parameter 
to DISKFMT. The specified library file is checked, and 
messages are logged on SYSLOG when tracks in error are 
encountered. 



FUNCTION 


PARAMETER 


COMMENT 


DISKFMT 


lib 


Format the specified library. 


DUMP 


block 


Dump all workspaces to tape. 


SELDUMP 


block 


Dump specified workspaces to tape. 


RESTORE 




Restore all libraries from tape. 


SELREST 




Restore a SELDUMP tape to disk. 


END 




Terminate SELDUMP. 


ACCTG 


or 1 


Print user accounting information. 


CREATE 




Create APL library disks. 


VERIFY 


lib | 


Verify library disk condition. 



Table <f: APL UTILITY CONTROL CARDS 
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APPENDIX A 



APL SYSTEM GENERATION MODULES 



The following job will delete all APL system generation 
modules from the Relocatable and Source Statement Libraries. 



// JOB DELETE APL SYSGEN MODULES 


// EXEC MAI NT 


DELETR 


APL. ALL 


DELETS 


A.CDCOMP 


DELETS 


A.APLDEV 


DELETS 


A.ZSYMBOLS 


DELETS 


A.TRCOMP 


DELETS 


A.APLDEFN 


DELETS 


A.PERTERM 


DELETS 


A.DIRSECT 


DELETS 


A. APIS CO NF 


DELETS 


A.MDVS 


DELETS 


A.APLSYS 


DELETS 


A.DEL 


DELETS 


A.MAKFR 


DELETS 


A.DIVTAB 


DELETS 


A.MPUB 


DELETS 


A.PCGEN 


DELETS 


A.PDGEN 


DELETS 


A.APLSEND 


DELETS 


A.APLDS 


CONDS RL,SL 


/■* 





/& 
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APPENDIX B 

EXAMPLE SYSTEM GENERATION 

Configuration ; System/360 Model 50 H 

Device Address 

1052 Console 009 

25U0 Reader 00C 

2540 Punch 00D 

1403 Printer O0E 
2702 Transmission Control: 

IBM 4 wire modems, SAD 020 to 02F 

103A2 Dial up, SAD 1 030 to 03E 

2314 Direct Access Storage 170 to 177 

2400 9 Track Tape 282 and 283 



Step 1 : Restore Distributed System Tape . 

Tapes mounted on 282 and 283, disk for SYSRES on 170. 

Cards in reader: 

// JOB INTDSK INITIALIZE DISK FUNCTION 

// DATE 68092 

// ASSGN SYSLOG,X'009',C1 

// ASSGN SYSLST,X*00E',L1 

// ASSGN SYSOPT,X'170',D3 

// EXEC 

// UID IA 

// VTOC STRTADR=(0199000),EXTENT=(10) 

V0L1APLSYS 

// END 

Interval Timer disabled, I PL 282, ready reader (push START 
and EOF). 
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Restore Function, cards in reader: 

// JOB DISRST 

// DATE 68092 

// ASSGN SYSLOCX'OOQ^Cl 

// ASSGN SYSLST,X'00E',L1 

// ASSGN SYSO0O,X'17O',D3 

// ASSGN SYS002,X'283',T2 

// EXEC 

Interval Timer disabled, IPL 282, 
and EOF). 



ready reader ( push START 



Step 2 : IPL the Restored System 

Cards in reader: 

ADD X'009',1050A 

ADD X'00C',25lt0R 

ADD X'00D',2540P 

ADD X'OOE',1403 

ADD X'170',2314 

ADD X'171',2314 

SET DATE=04/01/68,CLOCK=00/00/00 

ASSGN SYSL0G,X'009' 

ASSGN SYSLST,X'00E' 

ASSGN SYSIN,X'O0C* 

ASSGN SYSPCH,X'00D' 

ASSGN SYSLNK,X'171' 

ASSGN SYS001,X'171' 

ASSGN SYS002,X I 171' 

ASSGN SYS003,x'171' 

IPL 170, ready reader (press START and EOF). 

Step 3 : Initialize the SYSRES Label Cylinder 

Standard labels for work files: 

// JOB STDLABEL 

// OPTION STDLABEL 

// DLBL IJSYSLN, 'APLDOS LINK FILE', 99/365 

// EXTENT SYSLNK, 333333,1,0,20,240 

// DLBL IJSYS01,'APLDOS UTILITY FILE 1', 99/365 

// EXTENT SYS001, 333333, 8, 0,260, 500, 9 

// DLBL IJSYS02,'APLDOS UTILITY FILE 2', 99/365 

// EXTENT SYS002, 333333, 8, 0,270,500, 19 

// DLBL I JSYS03, 'APLDOS UTILITY FILE 3', 99/365 

// EXTENT SYS003, 333333, 8, 0,1260, 500, 9 

/& 
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Step k : Assemble and Catalogue a new DOS Supervisor 

// JOB DOSSUP ASSEMBLE DOS SUPERVISOR 
// OPTION LIST,DECK,XREF 
// EXEC ASSEMBLY 

SUPVR SYSTEM=DISK / MPS=YES / TP=APL 

CONFG MODEL=50,SP=YES,DEC=YES,FP=YES,TIMER=YES 

STDJC DUMP=NO 

FOPT OC=YES,IT=F1,PC=YES,TEB=10,CCHAIN=YES,CE=NO 

PIOCS SELCH=YES,TAPE=7 

ALLOC Fl=21OK,F2=0K 

IOTAB BGPGR=25,F1PGR=10,F2PGR=5,JIB=20,CHANQ=25,IODEV=50 

PRINT NOGEN 

DVCGEN CHUN=X'009',DVCTYP=1050A 

DVCGEN CHUN=X'00C',DVCTYP=25i*0R 

DVCGEN CHUN=X , 00D',DVCTYP=25l*0P 

DVCGEN CHUN=X'00E' / DVCTYP=li»03 

DVCGEN CHUN=X'170 , ,DVCTYP=23:U 

DVCGEN CHUN=X'171',DVCTYP=23H* 

DVCGEN CHUN=X'172',DVCTYP=23H* 

DVCGEN CHUN=X I 173 I ,DVCTYP = 2311* 

DVCGEN CHUN=X'17l* , ,DVCTYP=23H* 

DVCGEN CHUN=X'175 I ,DVCTYP=23H* 

DVCGEN CHUN=X I 176 , ,DVCTYP=23H* 

DVCGEN CHUN=X'177 , ,DVCTYP=23H* 

DVCGEN CHUN=X , 282 , ,DVCTYP=2l*00T9 

DVCGEN CHUN=X ' 283 ' , DVCTYP=2i*00T9 

ASSGN SYSLOG,X'009' 

ASSGN SYSRDR,X'0OC' 

ASSGN SYSIPT,X'00C' 

ASSGN SYSPCH^'OOD 1 

ASSGN SYSLST,X'00E' 

ASSGN SYSLNK/X'm' 

ASSGN SYS001,X'171' 

ASSGN SYS002,X'171' 

ASSGN SYSOOS^'m' 

ASSGN SYS006,X I 172' / F1 

ASSGN SYS007,X'173\F1 

ASSGN SYS008,X'172',F1 

HOLD Fl 

PRINT GEN 

SEND X'2800' 

END 
/* 
/& 

II JOB DOS/APL CATALOGUE NEW SUPERVISOR 

// OPTION LINK,CATAL 

INCLUDE 
Relocatable object from preceding assembly placed here. 
/* 

// EXEC LNKEDT 
/& 



Step 5 : Assemble and Catalogue the APL Conf igurat i oil . 



// JOB CONFIG ASSEMBL 
// EXEC ASSEMBLY 



CONF 



APL SWAP FILE 
APL LIB 
APL LIB 1 



/* 
/& 



TITLE 'APL CO 
PRINT NOGEN 
APLSCONF 
APLDEV X'21 
APLDEV X'22 
APLDEV X'23 
APLDEV X'24 
APLDEV X'25 
APLDEV X'26 
APLDEV X'27 
APLDEV X'28 
APLDEV 
APLDEV 
APLDEV 
APLDEV 
APLDEV X'2D 
APLDEV X'2E 
APLDEV X'2F 
APLDEV 
APLDEV 
APLDEV X'32 
APLDEV X'33 
APLDEV X'3i» 
APLDEV X'35 
APLDEV X'36 
APLDEV X'37 
APLDEV X'38 
APLDEV X'39 
APLDEV X'3A 
APLDEV X'3B 
APLDEV X'3C 
APLDEV X'3D 
APLDEV X'3E 
APLSEND 
END 



F APL CONFIGURATION 
NFIGURATION' 



X'29 
X'2A 
X'2B 
X'2C 



X'30 
X'31 



DEF 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE = 
TYPE 
TYPE= 
TYPE = 
TYPE 
TYPE = 
TYPE = 
TYPE = 
TYPE = 
TYPE = 
TYPE = 



AULT OPT I 

271*1, SAD = 

2741, SAD= 

27^1, SAD= 

271*1, SAD = 

271*1, SAD 

271*1, SAD 

271*1, SAD 

271*1, SAD 

271*1, SAD 

TS1*1,SAD 

TS1*1,SAD 

TSI*1,SAD 

TSI*1,SAD 

TS 1*1, SAD 

TS 1*1, SAD 

DEFAULT 



ONS 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

SADO 

OPTIONS 



CATALOGUE APL CONFIGURATION 



//■ JOB CATCONF 

// EXEC MAI NT 

Relocatable object from preceding assembly placed here. 

/* 

/& 
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Sfeo 6: Estimate APL swapping and storage requirements 

INCORE+3 

COPIES+10 

LINES-t-30 

COi?£-<-204Sxr( 72 000+(JffCOff£ , x35 86 4)+£Jff£S , x60 0)T2 0t8 

CORE 



200704 



196 



60 



39 
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CORE* 102 4 

LOADADDBESS+256-1'36 
LOADADDRESS 

W0RKSPACES+LINES+C0PIES+2-INC0RE 
WORKSPACES 

TRACKS+5 "WORKSPACES 
TRACKS 



Required allocation: alloc fl=196k 
Phase address: PHASE APLSMPS,F+60K . . 
Reserve 11 2311* cylinders for swapping. 

Step 7: Assemble and Catalogue APL Disk Parameters. 

// JOB DISKPARS ASSEMBLE APL DISK PARAMETERS 

// EXEC ASSEMBLY 

PARS TITLE 'APL DISK PARAMETERS' 

SWAP APLDS 6, 'APL SWAP FILE' 

LIB APLDS 7, 'APL LIB ZERO' 

APLDS 8, 'APL LIB ONE' 

APLDISK 

END 
/* 
/& 

// JOB CATPARS CATALOGUE DISK PARAMETERS 

// EXEC MAI NT 

Relocatable object deck from preceding assembly placed here. 

/* 

/& 



Step 8 : Link Edit the APL Utility Program 

// JOB UTILLINK LINK EDIT APL UTILITY 
// OPTION LINK,CATAL 

INCLUDE APLSUTI L 
// EXEC LNKEDT 
/& 
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Step 9 : Link Edit APL . 



// 
// 



/* 
// 



/* 
// 
/& 



JOB APLLINK 
EXEC MA I NT 

DELETC APLS.ALL 

CONDS CL 



OPTION LINK,CATAL 
INCLUDE 

PHASE APLSMPS,F+60K 
INCLUDE APLSLINK 



LINK EDIT APL 



EXEC LNKEDT 



Step 10 : Label APL Swap and Library Disks 

Initialized disks with serials APL001 and APL002 mounted on 
172 and 173 

// JOB DASDILBL LINK EDIT LABEL WRITING PROGRAM 
// OPTION LINK,CATAL 

INCLUDE APLL23H* 
// EXEC LNKEDT 
/& 

// JOB LABELS LABEL DISK PACKS 

// ASSGN SYS006,x*172' 

// DLBL LBLDTF,'APL SWAP FILE', 99/365 

// EXTENT SYS006,APL001,1, 1,20, 220 

// EXEC DASDILBL 

// ASSGN SYS007,X'173' 

// DLBL LBLDTF,'APL LIB ZERO', 99/365 

// EXTENT SYS007,APL002,1, 1,20, 3960 

// EXEC DASDI LBL 

// ASSGN SYS008,X'172' 

// DLBL LBLDTF,'APL LIB ONE', 99/365 

// EXTENT SYS008,APL001, 1,1, 21*0,371*0 

// EXEC DASDILBL 

/& 
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Step 11 : Restore the Distributed APL Library 

Distributed Library tape mounted on 283. 

// JOB RESTORE DISTRIBUTION LIBRARY 

// ASSGN SYS00i»,X'283' 

// ASSGN SYSOI^X'm 1 

// ASSGN SYS008,X'172* 

ALLOC F1=0K 

// EXEC APLUTIL 

CREATE 

/* 

ALLOC F1=196K 

/& 

Step 13 : Condense All Libraries . 

An operational SYSRES volume is to be created. A 
separate maintenance pack will not be maintained. Instead,, 
the APL System Generation modules will be saved on tape, to 
be restored when APL maintenance is required. 

// JOB PUNCH APL SYSGEN MODULES 

// ASSGN SYSPCH,X'282' TAPE FOR SYSGEN M0DULES 

// EXEC SSERV 

PUNCH A.CDCOMP,A.APLDEV,A.ZSYMBOLS,A.TRCOMP 
PUNCH A.APLDEFN,A.PERTERM,A.DIRSECT,A.APLSCONF 
PUNCH A.MDVS,A.APLSYS,A.DEL 

PUNCH A.MAKFR,A.DIVTAB,A.MPUB,A.PCGEN,A.PDGEN 
PUNCH A.APLSENO,A.APLDS 

/* 

// EXEC RSERV 

PUNCH APL. ALL 

/* 

// CLOSE SYSPCH,X'O0D' 

/& 

II JOB DELETE APL SYSGEN MODULES 

// EXEC MAI NT ,.„„„„„ 

DELETS A.CDCOMP,A.APLDEV,A.ZSYMBOLS,A.TRC0MP 
DELETS A.APLDEFN,A.PERTERM,A.DIRSECT,A.APLSCONF 

DELETS A.MDVS,A.APLSYS,A.DEL 

DELETS A.MAKFR,A.DIVTAB,A.MPUB,A.PCGEN,A.PDGEN 
DELETS A.APLSEND,A.APLDS 
DELETR APL. ALL 
DELETC DASDILBL 
CONDS CL,RL,SL 

/* 

/& 

At this point, the operational SYSRES pack is dumped to 
tape in order to provide a backup copy. 
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The APL System Generation modules can be restored as. 
fol lows : 

Tape punched above is mounted on X'282' 



// JOB RESTORE APL SYSGEN MODULES. 

// ASSGN SYSIPT, X'282 1 

// EXEC MAINT 

// ASSGN SYSIPT,X'OaC' 

// ASSGN SYS000, X'282 ' 

// MTC RUN,SYS000 

/* 

/& 
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APPENDIX C 



BPS UTILITY MESSAGES 



Where no reply is given, either none is required or 
none is allowed. Replies are entered by typing the reply 
character twice and then pressing EXTERNAL INTERRUPT. 



0901 Program Check 

0701 Program Check 

0702A 1052 request, Reply k to continue 

Ocuu Device. I/O error, Followed by a 

information. 

Reply 5 to retry. 

Reply it to bypass and continue. 

Reply or 1 to terminate. 

1050A Missing DATE card. 

1040A Missing JOB card. 

1110A Duplicate JOB card. 

1200A Unrecognizable card. 

1220A invalid, or missing control card. 

13xxA Invalid field (xx - field number) 



1 ine of sense 



1703A PAUSE card. Reply character - space. 

3001 All disk files transferred to tape. 

3002 The job name on the JOB card is not DISCPY 

3003 Unrecoverable tape error. 

3012 SYS001 and SYS002 must be assigned to tape. 

3015 Tape convert check. 

3016 SYS0OO must be assigned to a disk. 

3022A Error in // U card, Correct card and reply 
continue. 



2 to 



3LCA1A // U card missing.. Correct and reply 2 to 

continue 
37iflA Invalid tape label, Reply 2 to delete label and 

conti nue. 
37i»2A See 37MA 
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BPS Utility messages, cont. 



3751A Active label found., Reply 2 to delete label ana 

continue. 
3752A See 3751A 

3688 End of volume, switching to alternate. 
3888A End of volume. Mount another reel and reply 2 to 

continue. 
3999 SYSLST or SYSLOG not assigned, or assigned to the 

same device. 



U30U Disk pack has no V0L1 label. 

t»310A Disk error., Reply 2 to retry, other to terminate. 

i»3Ul More than 1 format 1 label found for file. 
i*3i»3 Record size greater than i»000 bytes. 
itUOlA No format 1 label, Correct // U card and reply 2 
to continue. 

3LC2A Invalid VTOC start address or EXTENT 

3LC3A Assigned VTOC overflows cylinder. 

3LCI*A V0L1 missing, or V0L1 through VOLn out of 

sequence. 
3LC5A V0L1 card has blanks in volume serial field. 
3LC6A Wrong VTOC or END card, or missing END card. 
3LC7A VTOC card sets and number of assigned packs are 

not equal . 
3LC8A Comma or blank must follow parameter. 

UkOkA No Format k label. Reply <t to ignore, or 1 to 

termi nate. 
itkitkfi, Overlap on unexpired file - See UU0UA. 

!t306A No V0L1 label. Replace pack and reply 2 to 

conti nue. 
i*311A Disk error. See 4306A. 

4400A No space in VTOC 

hi*09A No format 1 label 

4410A Data check in output count field. 

i»41<tA Error while reading format k label. 

i»i»19A Read error while searching VTOC 

^28 VTOC not on cylinder 199 
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APPENDIX D 



APL UTILITY ERROR MESSAGES 



UNIT NOT ASSIGNED, SYSnnn 

Reason: A library disk is. not assigned. 
Action: The Utility program terminates. 
Correction: Correct // ASSGN cards and resubmit. 

WRONG DEVICE TYPE, SYSnnn 

Reason: SYSnnn, which should be assigned to an APL 
library disk, is assigned to some other type 
of device. 

Action: The Utility terminates. 

Correction: Correct // ASSGN cards and resubmit. 

ERROR IN DS LABEL, SYSnnn 

Reason: The disk to which SYSnnn Is assigned does not 
contain the label defined by the APLDS 
nnn, 'label 1 statement. 

Action: The Utility terminates. 

Correction: Check // ASSGN cards, the di sks mounted, and 
system generation Steps 7 through 10. 

INCORRECT CONTROL CARD 

Reason: The card which was printed on SYSLOG 
preceding this message was unrecognizable by 
the Utility. 

Action: The Utility terminates. 

Correction: Correct the card or card sequence and 
resubmi t. 

LOST saver lib name disk-location 

Reason: The workspace named cannot be read from the 

1 ibrary disks. 
Action: The Utility continues. 
Correction: None is possible. 
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INCORRECT NUMBER OF DIRECTORIES ON TAPE 



Reason : 



Action: 
Correction: 



A tape is mounted for a RESTORE function 

which was not dumped by the Utility currently 

operati ng. 

The RESTORE function terminates. 

Check system generation Steps 5 tnrou S h „°- ' t. 

the system is correct, use the CREAit 

f unc'tl on. 



FIRST WS IS NOT A DIRECTORY 



Reason : 



Action: 
Correction: 



The tape mounted for/:a RESTORE function is 

not the first reel of a tape written by a 

DUMP function. 

The RESTORE function terminates. 

Mount the correct tape and resubmit. 



NUMBER NOT FOUND ws i d 
WSNAME NOT FOUND wsid 

Reason: A selection card during a SELDUMP function 

did not specify an existing workspace. 
Action: The selection card is bypassed. 
Correction: Correct card and resubmit. 



LIBRARY NOT FOUND number 
Reason: 



Action: 
Correction: 



There is no library with the number of a 

workspace read from tape during a restore 

function. 

The workspace is bypassed. 

The APL Operator must add the library number. 



NOT AN APL DUMP TAPE 
Reason: 



A tape mounted for a restore function does 
not contain an APL dump header label. 



Action: 
Correction: 



The function terminates. 

Mount the correct tape and resubmit. 



UNEXPIRED FILE 



Reason: 



Action: 



Correction: 



An output tape mounted for a dump function 

contains an unexpired label (which is printed 

above this message). 

The Utility waits for an operator response 

from SYSLOG. 

Reply ignore to write on the tape, or 

reply cancel to terminate, or 

mount a new reel and reply newtape. 
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